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ABSTRACT 


A computer code is described that quickly maximizes the payload of a multistage 
launch vehicle. Calculus of variations techniques are used to optimize the trajectory and 
propellant loadings (optional) of one to six stages. The flow rate and vacuum thrust of 
each stage are constant. The jettison weight is a linear function of the propellant loading. 
The computer time is greatly reduced by minimizing the integration of atmospheric 
(booster) portions of the trajectory. A table of booster burnout conditions is formed 
from a limited number of boost trajectories. The table is used in conjunction with an 
interpolation scheme to obtain initial conditions for the vacuum portion of the trajectory. 
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A TRAJECTORY CODE FOR MAXIMIZING THE PAYLOAD 
OF MULTISTAGE LAUNCH VEHICLES 
by Omer F. Spurlock and Fred Teren 
Lewis Research Center 

SUMMARY 

The computer code described in this report quickly optimizes the trajectory in order 
to maximize the payload of a multistage launch vehicle where the propellant loading of 
one or more of the stages has not been fixed. The flow rate and vacuum thrust of each of 
a maximum of six stages are constant. The jettison weight for each stage is a linear 
function of the propellant weight of the stage. The steering profile and the optimum stag< 
size criteria are determined by a calculus of variations solution. The program will opti- 
mize trajectories for several types of final conditions. The program is coded in 
FORTRAN IV and is currently running on a direct couple system (IBM 7094-11/7044). 


INTRODUCTION 


The problem of maximizing the payload of a multistage launch vehicle is difficult 
when the stage sizes as well as the trajectory must be optimized. In reality, the thrusts, 
flow rates, hardware weights, and steering profile are complicated functions of many 
variables. Maximizing the payload of a vehicle by using a mathematical model that in- 
corporates such functions would be a formidable and time-consuming task. However, the 
complicated model may usually be replaced by a much simpler one (as is done in this 
code) without greatly affecting the significance of the results. In fact, for new vehicles, 
the vehicle characteristics are not known in enough detail to allow use of a complicated 
model. 

A code was developed in response to the need for quick maximization of the payload 
capability of launch vehicles in preliminary mission studies. The code will optimize the 
trajectory and propellant loadings of a launch vehicle with a maximum of six stages. 
Fixed or optimized coast phases are permitted by treating them as stages. The mathe- 
matical model assumed for the analysis used by the program has many simplifications. 



The vacuum thrust and flow rate of each stage are constant, and the hardware weights 
are linear functions of the stage propellant loadings. The trajectories are planar with 
the atmospheric portion being integrated in three dimensions and later or upper stages 
being integrated in two. The booster stage is that portion of the trajectory which is in 
the atmosphere and is constrained by aerodynamic loads and heating to a near-zero angle- 
of -attack trajectory (explained in the BOOSTER section). The upper -stage steering pro- 
file, as well as optimum staging criteria, is determined by a calculus of variations 
analysis. This analysis is described in reference 1. 

In order to avoid confusion, a distinction is made at this point between stages of a 
vehicle and what shall be called the phases of a trajectory. The term stage shall refer 
to the actual hardware divisions of a vehicle, and phase shall be used to designate the 
parts of a trajectory. It should be understood, for example, that the first stage will 
operate initially in the atmosphere where the trajectory is constrained, whereas later in 
the flight the first stage may be out of the atmosphere wher e the trajectory is uncon- 
strained. If this is the case, it is necessary, for computational purposes, to consider 
the first stage as two phases: a booster phase and an upper phase. 

The booster trajectories are characterized by a short vertical rise of fixed duration 
after which the vehicle is tilted or kicked over instantaneously at some small predeter- 
mined angle in the desired azimuth direction. Thereafter, the steering profile is con- 
strained to yield essentially zero angle of attack until the end of the booster phase. 

Models for an oblate earth, atmosphere, and vehicle drag are used. The integration 
of the booster (aerodynamic) phase characteristically consumes much of the computer 
time for a problem. Because over this phase of the trajectory only two parameters, kick 
angle and duration, affect the trajectory, it is practical and advantageous to construct a 
table lookup scheme in which the booster burnout conditions may be obtained as functions 
of the two variables. Only those booster trajectories required to furnish points for the 
curve fit are integrated, thus minimizing the computer time consumed by booster in- 
tegration. As new points are required, the table expands to include the new trajectories. 

Other codes and techniques are available which make different simplifications. Some 
of these are listed in the references of reference 1. The PRESTO code of reference 2 
allows consideration of a more complex problem. The simplifications are less con- 
straining. The trajectories considered are not necessarily planar; the thrusts and flows 
are not necessarily constants; and coast phases may be inserted between four powered 
stages. Aerodynamic lift as well as drag forces are included in the computations. The 
optimization technique is the method of steepest descents. However, PRESTO requires 
of the order of 1 minute to solve the same problem that would require about 1/ 10 minute 
for this code. 

The first part of this report contains the assumptions and capabilities of the program 
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followed by a discussion of the organization. Next, a complete step-by-step set of direc- 
tions for utilizing the deck is provided. The appendixes contain the FORTRAN listings 
and related information. 


ASSUM PTIONS AND CAPABILITY 

The analysis on which the equations in the code are based is presented in reference 1. 
The set of assumptions for this program are that 

(1) The launch weight is fixed. 

(2) Vacuum thrusts for all phases are constants. 

(3) Flow rates for all phases are constants. 

(4) The hardware weight for each phase is assumed to be a linear function of the 
phase propellant loading defined by 


W s = W H + kW p <*) 

where W g is the total structural weight, Wjj is the fixed weight, Wp is the phase pro- 
pellant weight, and k is the propellant sensitive structure factor. (All symbols are 
defined in appendix A. ) 

(5) During the booster phase, drag = C D qA rgf , where C Q is a drag coefficient 
found as a function of Mach number, q is dynamic pressure, and A ref is the reference 
area. After the booster phase, drag is equal to zero. 

(6) Thrust during booster phases is defined by 

F = F y - A g P (2) 

where F is the thrust, F y is the vacuum thrust, A g is the engine exit area, and P is 
the atmospheric pressure. During upper phases, F = F y . 

(7) During the booster portion of the trajectories, the steering profile is determined 
such that essentially zero angle of attack is maintained. In the upper -phase portion, the 
steering profile is determined by the calculus of variations. 

(8) The upper -phase trajectories are planar, and the thrust vector during the 
booster portion is constrained to be parallel to the launch azimuth plane. 

In addition to the integrated trajectory, provision is made for adding an additional 
impulsive velocity increment Vj after the desired final conditions have been achieved. 
The final phase is used to provide this additional velocity increment, and the standard 
impulsive velocity equations are used to calculate the propellant required for the maneu- 
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ver. Postorbital maneuvers may often be conveniently simulated as an impulsive velocity 
increment. 

In addition to the preceding set of assumptions, other characteristics of the code are 
results of the fact that it was constructed by combining two existing codes. The booster 
portion is a derivative of the N-Body Code of reference 3; the upper -phase portion was 
constructed from a two-dimensional calculus of variations code designed for flight in a 
vacuum. This accounts for the booster portion being three dimensional and the upper - 
phase portion being two dimensional. 

The steering program during the booster portion is constrained such that for a short, 
specified period the vehicle rises vertically and then is instantaneously tilted or kicked 
over in the desired azimuth direction at some elevation angle henceforth called the kick 
angle. After the kick maneuver is performed, the angle of attack in the pitch plane is 
constrained to zero. The booster phase may be composed of six distinct segments each 
of which is limited to a fixed vacuum thrust, engine exit area, and flow rate. A fixed 
weight may be jettisoned at the end of each booster segment. The hardware weight for the 
last booster phase is treated as in the upper phases. 

A maximum value may be placed on the propellant loading of any phase. If the 
optimum loading exceeds the prescribed value, the duration of the phase is fixed such 
that the maximum loading is used; and the problem is reoptimized. 


ORGANIZATION 

This code was constructed by combining two existing codes: a booster code and an 
upper -phase code. This program remains largely divided into these almost independent 
sections because the two parent codes have different coordinate systems. The booster 
portion is simple and straightforward in spite of the more complex vehicle model. The 
upper-phase portion is more complex because it requires a targeting or iteration scheme 
as well as the calculus-of-variations steering control and staging criteria. Therefore, 
the discussion of the organization of the program may be conveniently divided into sec- 
tions on the booster and upper phases with auxiliary sections on the targeting procedure, 
the final boundary conditions, and input and output. Most of the discussion of the logic 
which connects the two portions is contained in the booster discussion. 


BOOSTER 

The booster portion of the trajectory is integrated in a three-dimensional rectan- 
gular equatorial coordinate system utilizing the integration scheme, oblate earth model, 
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and aerodynamic simulation given in reference 3. The method and organization of the 
booster portion of this code are derived from and, hence, are very similar to refer- 
ence 3. The atmospheric model was obtained from reference 4. 

The boost trajectory is characterized by a short vertical rise of fixed duration after 
which the vehicle is tilted or kicked over instantaneously at some small predetermined 
angle in the desired azimuth direction. During the vertical rise, the thrust vector is 
alined along the launch radius vector. At the end of the vertical rise period, the relative 
velocity vector is set to the desired kick angle (measured from the horizontal) in the 
desired azimuth direction. For the remainder of the booster portion of the trajectory, 
the thrust vector is directed so that the angle of attack in the pitch plane is zero. For 
further and more extensive discussion of this procedure, see appendix B. 

Thus, for a fixed launch weight, booster propulsion characteristics, and launch 
azimuth, the vertical rise phases are identical; the only changes in the boost trajectories 
are the result of changes in the kick angle and the duration of the boost phase. 

The program is constructed so that the upper -phase portion requests the burnout 
conditions at the end of the booster phase as a function of the booster kick angle and 
booster burning time: the two parameters that remain available for optimization in the 
booster. These burnout conditions (altitude, vertical velocity, and horizontal velocity) 
could be obtained by integrating the booster trajectory with the precise kick angle and 
burning time required. This procedure is followed whenever the kick angle and booster 
phase duration are fixed. However, if either the kick angle or booster phase duration 
are to be optimized, a table lookup technique is employed. The short vertical rise is 
integrated only once, and the weight and state conditions are stored. A grid of kick 
angles a k , is established with a preselected grid spacing (i. e. , . . ., 88.4°, 88.5°, 
88.6°, . . ., 89.8°, 89.9°). The grid spacing Aa k is constrained to values such that 


Aa k = 


o. r 


i = 0, 1, 2, 


(3) 


where i is chosen at execution time. This constraint is placed on the grid spacing in 
order to simplify the logic associated with choosing the kick angles needed to form a 
satisfactory table. The three kick angles from the grid closest to the desired kick angle 
are chosen, and trajectories are run using these three kick angles. As the integration 
proceeds, the state variables (altitude, horizontal and vertical velocities) are stored 
beginning at some prespecified time and at fixed increments of time until another pre- 
specified time is reached. The upper -phase state variables are then expressed as 
second-degree polynomials in kick angle and booster -phase duration, and the desired 
state variables are calculated from these polynomials. The polynomials are of the form 
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( 4 ) 


y = a l + a 2 a k + a 3 t B + a^tg + a^ 2 + agtg 2 

where y is the dependent state variable, a k is the kick angle, t g is the phase dura- 
tion, and a^ to a^ are constants which are evaluated from the stored data. The 
upper -phase portion of the deck requires not only the burnout conditions already noted, 
but also requires partial derivatives of the burnout conditions with respect to kick angle 
and booster -phase duration when optimization of either of these parameters is desired. 
The partial derivatives are obtained by differentiation of the polynomials. The inter- 
polation scheme requires trajectories for three kick angles from the grid to construct the 
polynomials. As targeting proceeds, the targeting scheme may request burnout condi- 
tions for a kick angle which is not enveloped by previously integrated trajectories. If 
the required kick angle is less than one grid spacing A« k from the closest one already 
available, the polynomials are formed with the three closest kick angles. If the required 
kick angle is further than Aof k from the nearest available kick angle, trajectories are 
integrated for one or more kick angles on the grid, such that the closest is within Ad! k 
and the most remote is within 3Ao! k . In this manner, the table is expanded until a 
range of kick angles covering the area of interest is obtained and stored, thus eliminat- 
ing the need for reintegrating the time-consuming booster trajectories. This table may 
be used for all problems sharing the same booster configuration. 

When a problem is completed, the booster table may be punched on binary cards, 
which may be read back into the computer at a later date. If it is desired to investigate 
a vehicle whose booster configuration is identical to one already considered and for 
which a booster binary table has been acquired, the binary cards may be reintroduced at 
execution time, thus avoiding reintegration of the booster trajectories. 


UPPER PHASES 

At the end of the booster phase, the number of variables free for optimization in- 
creases. The booster phase lad only two: the kick angle and the booster -phase duration. 
The upper phases add the steering profile and additional phase durations to the variables 
that may be optimized. The variational analysis from reference 1 requires the simul- 
taneous integration of the equations of motion and the Euler -Lagrange equations. Addi- 
tionally, the analysis demonstrates that for an N-phase problem there exist N + 5 final 
conditions to be satisfied and N + 5 initial conditions with which to satisfy them. Ob- 
viously, for a multistage vehicle the problem of optimizing the phase durations would 
involve a formidable iteration process. However, the analysis goes on to show how the 
number of iteration variables may be decreased by resorting to "internal” optimization 
of some of the parameters which would otherwise be in the "external" iteration loop. 


6 


By utilizing the techniques for internal optimization given in reference 1 and by choosing 
to limit the number of parameters in the external iteration ti five (thus limiting the final 
conditions to be satisfied to five), a maximum of five upper phases and the booster phase 
may be optimized. The program automatically utilizes the correct procedure for reduc- 
ing the iteration loop size. A description of this process is presented in appendix C. 

The choice of appropriate equations or techniques is a function of which parameters are 
to be optimized, whether a phase is powered or coasting, the sequential order of the 
fixed and optimized phases, and whether the structure factor is zero or nonzero. 

The initial conditions for the two-point boundary value problem are as follows: 

ip initial time rate of change of thrust angle 

ip initial thrust angle measured with respect to local horizontal 

Qfjj kick angle for booster (5) 

travel angle Lagrange multiplier 
Tj phase duration, where i = 1, 6 

The initial rate of change of thrust angle \p is always required as an initial condition. 

The variables ip and/or a ^ may be required, depending on the problem. The phase 
durations r must also be supplied by the user. If a phase is of fixed duration, that value 
will, of course, determine the duration. If a phase is to be optimized, an initial estimate 
of the phase duration is required which may be used in the two-point boundary value 
problem. All these variables must be loaded by the user; the program will use them as 
required. 

As shown in reference 1, A^ is a constant during a trajectory and is equal to zero 
except for nonoptimum travel angle trajectories. This option (nonoptimum travel angles) 
is seldom interesting in the type of problem for which this program was designed. 
Furthermore, experience has shown that the difficulties in converging a trajectory with 
a nonoptimum travel angle are formidable; but for the sake of completeness and the pos- 
sibility of future interest in that type of problem, it has been included in the Euler - 
Lagrange equations. It is not included in the iteration loop, and the travel angle is never 
specified as a final condition. 

The upper phases are integrated in a polar coordinate system which assumes a 
spherical earth. Thrust and gravity are the only forces acting on the vehicle, thus fa- 
cilitating rapid integration. The upper phase portion of the deck shares the integration 
technique of the booster portion, which is the fourth order Runge-Kutta scheme described 
in reference 3. 

To recapitulate, the upper phases consist of a maximum of five phases and a mini- 
mum of one phase. Each phase has a constant thrust and flow rate. Any upper phase 
except the final phase may be a coast phase (no thrust or flow rate). Any phase may 
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have a fixed or optimized duration. The structure weight for each phase including 
booster phase is assumed to be a function of the propellant expended during that phase 
(defined by eq. (1)). 

In addition to the integrated trajectory, provision is also made for adding an impulsive 
velocity increment Vj after the desired final conditions have been achieved in the in- 
tegrated trajectory. The final phase provides the velocity increment. 


ITERATION PROCEDURE 

The two -point boundary value problem implicit in the solution of the problem is 
solved by a multivariable Newton-Raphson iteration scheme. The program employs 
first-order, finite-difference equations to relate changes in final conditions to changes 
in initial conditions 


8y = M5x (6) 

where 6x and 6y are n-vectors (with an n x n iteration assumed: 2 < n < 5) denoting 
differences in initial and final conditions, and M is an n x n matrix of partial deriva- 
tives of final conditions with respect to initial conditions 


fyi Ay. 
M.. = — L « — — 
JK 5x, Ax, 


(7) 


The program obtains the matrix M by integrating a reference trajectory and n inde- 
pendent perturbed trajectories (or, as dicussed later, by considering n + 1 independent 
trajectories) so that 


Ay = M Ax (8) 

where Ax is an n x n matrix of differences in initial conditions such that Ax^ is the 
difference of the j*"* 1 initial condition on the k ^ perturbed trajectory and Ay is an 
equivalent matrix in final conditions. The guesses at the initial conditions are im- 
proved by the equation 


6y r = M6x r (9) 

where the subscript r indicates differences between reference and desired values; 
hence, 
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( 10 ) 


6x r = Ax Ay _1 6y r 

A large part of the program consists of the logic required to perform and terminate the 
Newton-Raphson iteration. Two criteria must be satisfied to terminate the iteration. 
The first is 
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where nij is the mass at the beginning of the variational phases; b (usually 1. 0x10 ) is 

some tolerance factor, which may be specified at execution time; and 6m is a measure 
of the payload error. The term 3m/ 3y^ is acquired from the set of perturbations. The 
second criterion is 

(leyjl^QW) i = l, n (12) 

where Q and B are n-vectors. The elements of the Q-vector are parameters that 
consist of values to which the errors in final conditions are compared. For instance, 
suppose that radius R was one of the required final conditions y^ . The error 6R in R 
is compared with R; thus Q J = R and B- 1 is the tolerance required, usually about 
1. 0x1 O' 4 . 

The two convergence criteria ensure that the error in the desired final conditions 
will be within the prescribed tolerance as well as ensuring that the effect of the accepted 
error in final conditions on final payload will be within tolerance. 

Equation (11) is also used to determine whether the iteration is converging. If the 
value of 6m on an extrapolated trajectory is larger than the 6m on a previous trajec- 
tory, 6x r is halved successively until the 6m for the new trajectory is less than that for 
the reference. If the extrapolated trajectory does not improve over the reference after a 
designated number of these operations, the problem is abandoned. The user may deter- 
mine the number of halving or damping operations allowed. 

After the iteration has proceeded to the point that convergence is close, the program 
may dispense with the perturbations of a reference and just replace the worst trajectory 
in the set with the new reference, calculate a new matrix M, and proceed in this manner 
until convergence is obtained. 

In addition to the problem of choosing initial guesses, there is the more difficult 
problem of choosing the perturbation size in order to obtain the perturbed trajectories. 
The principal source of the difficulty is the strong coupling of the partial derivatives to 
the optimal phasing equations used to terminate phases in the internal iteration. It is not 
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unusual for the effect of a particular perturbation size to change quite significantly during 
convergence because of the great nonlinearity of the optimal phasing effect on the partial 
derivatives. There are at least two solutions to the difficulty. From a mathematical 
point of view, the preferable solution would be the integration of analytical partial deri- 
vatives. However, this procedure presents very complicated programming problems 
and significantly increases the complexity of the program. It would also reduce the flex- 
ibility of the program in that it would reduce the possibility of the user altering the pro- 
gram significantly. The more practical solution, and the one utilized, was an empirical 
method of altering the perturbation size in the course of the iteration. In the first set of 
perturbations, the perturbation size is modified by a simple iteration until 

5xl0 -5 < ^ < 5xl0 -4 (13) 

R 

where R is the final radius. This is obviously not entirely satisfactory; therefore, on 
all subsequent interations, the perturbation size is adjusted such that 



where Z is an n-vector of differences between the final conditions of the reference and 
a perturbed trajectory, and the 3m/ 3y^ components are acquired from the previous set 
of perturbations. Equation (14) is comparable to the equation used to terminate the iter- 
ation (eq. (11)), and empirically, provided a satisfactory measure of perturbation size. 

Variational functions may be used to terminate some of the optimized phases in order 
to reduce the iteration size. The functions are monotonic, and the phases are terminated 
when the functions are equal to zero. The initial conditions affect these functions and 
determine the values of the functions at the beginning of the phases that must be termin- 
ated. If the initial value of the function is positive and the function is monotonically 
increasing, the equation cannot be satisfied. An analogous situation would exist for a 
monotonically decreasing function that is initially negative. The first set of initial con- 
ditions must be chosen by the user, and the program provides no remedy for a set for 
which the phasing equations cannot be satisfied. An error message containing the phase 
number of the offending phase is printed to inform the user that this difficulty has been 
encountered. This problem most frequently occurs when there is a coast between two 
stages of a vehicle, or a coast is desired between the burns of a stage, and the user does 
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not have a set of reasonable initial conditions. The most practical way of avoiding the 
problem is to fix the duration of a potentially offending phase at a reasonable value, tar- 
get the problem, then optimize the offending phase, all in one computer run. 

If this problem occurs in the course of iteration, the program will reduce the changes 
in initial conditions until it is possible to satisfy the phasing equation. If a perturbed 
trajectory encounters the same difficulty, the perturbation size is reduced until the 
phasing equation can be satisfied. 

When the user encounters a new problem in which several phase durations must be 
optimized and he has little idea of what the initial conditions should be, he may improve 
the convergence characteristics of the problem by fixing all but one of the phase dura- 
tions, converge the problem, and free the remainder one by one, converging each time. 
This is easily accomplished in a single computer submission. Although this procedure 
would appear to require more time, it may actually save time. Even if the complete 
problem would have converged without this technique, the number of iterations required 
to converge the complete problem may exceed the total number required for the para- 
metric procedure. More often, the parametric procedure will be the only way of obtain- 
ing solutions in difficult problems because of the need for accurate guesses of initial con- 
ditions. This procedure applies only when reasonable estimates of initial conditions are 
not available. 

For a problem that requires a booster table (as described in the BOOSTER section), 
the kick angle spacing A« k is a factor in the final accuracy of the solution. The user 
may check the accuracy of the interpolation scheme by causing the program to integrate 
the booster with the exact « k and boost-phase duration specified by the converged 
initial conditions. At the end of the booster integration, the upper phases are integrated 
using the converged initial conditions and the exact state variables obtained from the 
integration. The error checks are performed as before, and, if this trajectory satisfies 
the tests, the problem is complete. Otherwise, the kick angle spacing is halved, 

the convergence procedure is repeated, and the new exact a k and phase duration are 
again integrated followed by the upper phases. The error checks are again performed. 
This process continues until Aa k is small enough to provide the desired accuracy. 

FINAL BOUNDARY CONDITIONS 

The final boundary conditions for optimizing a multistage launch vehicle are of two 
types. The most easily understood are those which are dependent on the desired final 
orbit. More complex are those that consist of equations which must be satisfied in order 
to ensure optimum phasing. The second type is dependent on the variety of combinations 
of powered and coast phases, zero and nonzero structure factors, and the order of the 
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fixed- and optimized -phase durations. These optimum phasing equations are similar and 
are usually identical to some of those that may be used in the internal optimization of 
phasing times. Some of these equations may be evaluated before the end of the trajectory, 
and some of those that are evaluated at the end are dependent on parameters from inter- 
mediate points. The program selects the proper equations for evaluation as this is a 
tedious task. Reference 1 contains the derivations for these equations. Appendix C 
describes the selection process. 

The final orbit is completely specified by any four independent orbit parameters such 
as R (radius), R (radial velocity), oo (angular velocity), and cp (travel angle or polar 
angle). The variational solution provides means by which any of the orbital parameters 
left unspecified may be optimized. As shown in reference 1, if the travel angle or polar 
angle cp is unspecified, X^ = 0 for an optimum cp. Because nonoptimum travel angles 
are rarely desirable in the type of problem usually considered by this program and, 
additionally, are difficult to converge, the travel angle (p may not be specified. If 
necessary, nonoptimum travel angle trajectories may be obtained by loading X^ * 0 and 
observing the change in travel angle. 

The following sets of final orbit conditions are included in the program available to 
the user. 

(1) Energy per unit mass E, radius R, and flight path angle r. (Travel angle cp 
is optimized. ) This is equivalent to specifying the radius, radial velocity, and angular 
velocity as shown by the following equations: 

E = R 2 + o> 2 R 2 _ m 
2 R 


Ru> 


(2) Energy E. (Radius R, flight path angle r, and the travel angle cp are optimized). 

(3) Energy E and flight path angle r. (Radius R and travel angle cp are opti- 
mized. ) 

(4) Energy E and perigee radius R p . (True anomaly and flight path angle r are 
optimized. ) This is equivalent to specifying eccentricity e and semilatus rectum p, 
but letting true anomaly 6 and argument of pericenter e = cp - 6 be unspecified where 
both cp and 6 are to be optimized: 


p = 2R p 
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e = 


2ER 

P + 1 

M 

The argument of pericenter e is defined herein as the angle between the radius vector 
at the beginning of the variationally steered portion of the trajectory and the pericenter 
radius. The derivation of the final conditions required to optimize the unspecified orbit 
parameters is given in appendix C of reference 1. 

K the user requires a set of final boundary conditions which is not included, they 
may be added with very minor revision to the program. The maximum iteration size 
allowed by the program is five. (This limitation is somewhat arbitrary, -but convergence 
problems increase with the number of iteration variables and five seems to be a prac- 
tical limit. ) A six-phase problem may always be solved with this limitation if it is pos- 
sible to terminate the final phase on one of the final state conditions (such as energy). 

The user should keep this in mind in adding any new set of final boundary conditions. 


INPUT AND OUTPUT 

There are two types of input into the program. Most of the data enter in decimal 
form by an input routine. The binary booster table is introduced by a special routine 
which inputs binary cards. 

The input routine utilized by this program is described in reference 5. This routine 
loads fixed- or floating-point numbers, octal numbers, and alphabetic words; it is capable 
of performing simple arithmetic, as indicated on input cards. Arrays may be loaded 
quickly in consecutive memory locations. The programming indicated in reference 5 
has been made compatible with the IBM 7094 computer, but the capability and instructions 
for use remain as in reference 5. 

The routine for reading binary data and the complementary routine for punching 
binary cards were developed at Lewis for use on the 7094 computer. They are included 
with the program. Should these routines prove impossible to adapt to another computer 
facility, it should be possible to replace these routines with others which perform the 
same functions. The input routine just described may also be replaced by another of 
similar capability without great difficulty. 

The output from the program also is both binary and decimal. The binary output 
consists of the information stored in the booster table and is punched out on cards by the 
routine described previously. 

Decimal output is derived from both the booster and upper -phase portions of the 
code. Most of these data consist of information regarding the state conditidns at the be- 
ginning, end, and at intermediate points in the integration of the trajectory. Since the 
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two parts of the trajectory are not integrated consecutively and since the booster is 
integrated in three dimensions and the upper phases in two, the trajectory output data for 
the booster and upper phases will be separated and are necessarily different. 

A two-line and a five-line output format are available for the booster data. The two- 
line form prints only those variables of most immediate interest to the user. The five- 
line output prints most, if not all, of the variables that could interest the user. The list 
and definitions of the variables printed are given in the comments printed at the begin- 
ning of the subroutine OUTPT2. 

The trajectory data for the upper phases plus auxiliary data useful in operating the 
code are printed in a five-line output. The list and definitions of the variables are given 
in the comments for OUTPT1. 

At the beginning of the output for a problem, a synopsis of data for each phase is 
printed. At the end of each trajectory, a compilation of data of possible interest to the 
user is printed. These variables and their definitions are given in OUTPT1. 

DIRECTIONS FOR UTILIZATION OF DECK 


The decimal input data for this program are introduced through subroutine INPUT 
(described in the section INPUT AND OUTPUT). The required data for utilizing this 
code may be arbitrarily divided into six categories. In an attempt to provide a foolproof 
method of loading the required data into the program, the instructions will be treated in 
six categories and each category will be divided into necessary and optional sections 
where applicable. Examples are provided where they may be helpful. 

The constants in this program are preloaded in U. S. Customary Units. Any other 
units of length, mass, and force may be used by changing the preloaded constants. This 
process is explained in the section PROGRAM CONSTANTS. For convenience, the units 
listed with the input variables described in this section are given in both the U. S. Cus- 
tomary and SI Systems. 


DRAG MODEL 

Drag is calculated from the equation 

drag = C D qA ref 

where C D is the drag coefficient, q is die dynamic pressure, and A rgf is the refer- 
ence area. A curve fit of C D as function of Mach number is required. This is 
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provided by dividing the curve into segments of arbitrary length which are approximated 
by quadratic functions. The method of loading the quadratic coefficients is explained in 
the description of the variable COEFN. 


Necessary Data 


Variable Description 

AREA Reference area to be used in drag calculation, AREA = A re j 

(e. g. , AREA = 78. 5), ft 2 ; m 2 

COEFN COEFN is of the form Xq, a^, b^, c-^, X^, ag, bg, Cg, Xg, 

a 3 , b 3 , c 3 , . . . , a N , b N , c N , X N . The Mach numbers 
that designate the segmenting of the drag curve are Xq, 
Xp Xg, . . . , X N . The coefficients in the quadratic are 
a i’ b i’ an< * c i ^ = where C D = + bjX + CjX 2 . H 

the coefficients are not available, they may be generated 
by the code by loading the optional data. 


Optional Data 


The coefficients are generated by loading a set of point pairs in ascending order by 
Mach number from the curve of C^ as a function of Mach number. The following vari- 
ables must be loaded. 


Variable 


Description 


NSETS 

VARIND 

VARDEP 


Number of point pairs minus one divided by two. The num - 
ber of p oint pairs must be odd . 

The independent or first members of the point pairs loaded 
consecutively (Mach number). 

The dependent or second member of the point pairs loaded 
consecutively (drag coefficient). 


Examples of coefficient generation: K the following point pairs (1, 2), (2, 1), (3, 2), 
(4, 4), and (6, 5) are acquired from a curve, the variables would be assigned values as 
follows: NSETS = 2; VARIND = 1, 2, 3, 4, 6; and VARDEP = 2, 1, 2, 4, 5. If the coef- 
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ficients are not available and must be generated by the COEFNT routine, the newly gen- 
erated coefficients are punched out on cards. They are thus available for any subsequent 
machine submission. 


Output Control 

The output frequency during a trajectory is controlled by a routine called STEP. 
Because each trajectory is divided into a booster portion and an upper-phase portion and 
each is integrated separately, the output frequency may be different for each section. 

The STEP routine utilizes six internal variables to enable the user considerable flex- 
ibility in the frequency and spacing of output during the course of a trajectory. The vari- 
ables are MODOUT, MODS, STEPS, TMIN, DELMAX, and NOUT. MODOUT may assume 
values from 1 to 7. These internal variables are set by loading variables mentioned in 
later sections. 


Variable 


Description 


MODOUT = 1 
MODOUT = 2 


Output every integration step (N = STEPS) until time 
equals TMIN, then MODOUT is changed to 2 

Output every X seconds (X + DELMAX) for duration of that 
portion of trajectory 


MODOUT = 3 
MODOUT = 4 


Output every X seconds (X = DELMAX) until time equals 
TMIN, then MODOUT is set equal to 4 

Output every N^ 1 integration step (N = STEPS) until end of 
that portion of trajectory 


MODOUT = 5 
MODOUT = 6 
MODOUT = 7 


Output at beginning and end of that portion 
No output 

Allows user to obtain output at intervals of DELMAX begin- 
ning at first time which is an integral multiple of the 
DELMAX interval; useful in upper-phase portion of tra- 
jectory, which frequently begins at some nonintegral time 


MODS and NOUT (J, I), (J = 1, 6; I = 1, 3) control the type and frequency of output 
at the phasing points: 
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Variable 


Description 


MODS = 1 
MODS = 2 
MODS = 3 
MODS = 4 


No output at phasing points 
Output before and after each phasing point 
Output before but not after phasing 
Output after but not before phasing 


NOUT is a subscripted variable which allows the user to suppress output at a parti- 
cular phase. This option is useful when the user may wish to emphasize certain phases 
by ignoring others, such as a desire to emphasize the staging points and to ignore the 
trajectory phasing points, which are not vehicle significant. 

In order to skip a phasing point J, NOUT (J, I) = 1. NOUT is not an input variable, 
but is loaded indirectly by loading a similar variable (NPRNTB, NPRNTI, or NPRNTC) 
which corresponds to an omission desired in either the booster or the upper-phase por- 
tion. 


BOOSTER DATA 

Usually, the booster stage consists of a single segment (i. e. , one flow rate and 
vacuum thrust and no hardware weight to be discarded until the first variational phase). 
However, the code will accommodate a more complicated booster. The booster in 
the more complicated configuration may be divided into as many as six segments after 
the initial vertical rise (which assumes the propulsion characteristics of the first seg- 
ment), each phase of which may have an independent thrust, flow, and exit area. A fixed 
weight may be jettisoned at the end of each segment. The necessary data assume a 
single segment booster. 


Necessary Data 

Variable Description 

LAT Latitude of launch site (positive North of equator), preloaded 

as LAT = 28. 310293, deg 

LONG Longitude of launch site (positive East of Greenwich), pre- 

loaded as LONG = 279. 461759, deg 
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Variable 


Description 


AZMUTH 

WTO 

EXITS 

RERUN 

MODEB(I) 

MODEB(l) 

MODEB(2) 


Desired launch azimuth, measured positive clockwise from 
North (e.g., AZMUTH = 90), deg 

Initial gross weight (e.g. , WTO = 6. 00 E + 06), lb; kg 

Total exit area of engines in booster portion, F = F y - A g P, 

where F is thrust, F is vacuum thrust, A = EXITS, 

v 2 2 e 
and P is atmospheric pressure, ft ; m . 

Variable determining whether to check kick -angle grid spac- 
ing; if RERUN = 1, check booster; if RERUN = 0, no 
booster check (preloaded) 

(I = 1, 2) Array which determined output frequency for booster, 
MODEB(I) = 61 is preloaded. 

Determines output frequency during vertical rise portion of 
integration 

Determines output frequency for printout of converged booster 
and will be utilized only if RERUN = 1 


MODEB(I) is a two digit number: the first digit corresponds to the desired value of 
the internal variable MODOUT, and the second digit corresponds to the desired value of 
the internal variable MODS. See the section OUTPUT CONTROL for a discussion of the 
output options available. As may be noted from this section, certain choices of MODOUT 
require additional input from the list of optional variables. These variables will be noted 
in the discussion of the optional data. 

Variable Description 


MODEC 

MODEC = 1 
MODEC = 2 

MODEC = 3 


Two types of output as well as no output are available for the 
booster 


No booster output 

Preloaded; two -line output option printing those variables 
which are of immediate interest in generation of a booster 
table 

A five -line output option which prints an extensive descrip- 
tion of boost trajectory 



Variable 


Description 


PERB(I) 

PERB(l) 

PERB(2) 


Array which determines beginning and final time points of 
booster table 

Decimal fraction of initial gross weight which must be 
expended before table storage is begun; preloaded as 0. 5 

Decimal fraction of initial gross weight which must be 
expended before table storage is ended; preloaded as 0. 8 


Optional Data 

A multisegment booster requires separate data for each segment. These data are 
supplied in the following class of data. 


Variable 


Description 


LAST 

FORCES(I) 

FLOWB(I) 

EXITB(I) 

HARDB(I) 

TBOOST(I) 


Number of boost phases 1 < LAST < 6; LAST = 1 is pre- 
loaded; if LAST > 1, FORCES, FLOWB, EXITB, HARDB, 
and TBOOST must be loaded 

(I = 1), LAST - 1) Vacuum thrust levels of multiphase 
booster, preloaded to zero (e.g. , FORCES = 8. 6 E + 06, 

5. 5 E + 06, . . . ), lb; N 

(I = 1, LAST - 1) Flow rates of a multiphase booster, pre- 
loaded to zero (e.g., FLOWB = 4. 1 E + 04, 2. 68 + 04, 

. . . ), lb/sec; kg/ sec 

(I + 1, LAST - 1) Engine exit areas for a multiphase booster, 
preloaded to zero (e.g. , EXITB = 534. 342), ft 2 ; m 2 

(I = 1, LAST - 1) Jettison weights of a multiphase booster, 
preloaded to zero (e.g., HARDB = 100000, 50000, 

. . . ), lb; kg 

(I = 1, LAST - 1) Durations of segments multisegment 
booster (e.g., TBOOST = 60, 80, 20, . . .), sec 


The thrust, flow rate, and hardware weight of the last segment of the booster (data 
for the table are stored during this phase) are loaded with the upper -phase data. 
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Variable 


Description 


TKTIME 

ASTART 

TSTART 

VSTART 


Time duration of vertical rise, TKTIME = 15 is preloaded, 
sec 

Altitude at beginning of vertical rise, ASTART = 0 is pre- 
loaded, ft; m 

Time at beginning of vertical rise, TSTART = 0 is preloaded, 
sec 

Relative velocity at beginning of vertical rise, VSTART = 0 
is preloaded, ft/ sec; m/ sec 


The remaining variables supply values to the internal variables, DELMAX, TMIN, and 
STEPS at the appropriate time. 

Variable Description 


DELMXB(I) 


TMINB(I) 


STEPB(I) 


(I = 1, 2) DELMXB supplies appropriate time intervals to 
DELMAX. (See section on OUTPUT CONTROL. ) Sub- 
scripts of DELMXB refer to rise time and converged tra- 
jectory as in the MODEB discussion. DELMXB = 10 is 
preloaded, sec 

(I = 1, 2) TMINB supplies appropriate time to TMIN. (See 
section on OU TPUT CONTROL. ) Subscripts of TMINB 
refer to rise time and converged trajectory as in MODEB 
discussion, sec 

(I = 1, 2) STEPB supplies appropriate value to STEPS. (See 
section on OUTPUT CONTROL. ) Subscripts of STEPB 
refer to rise time and converged trajectory as in MODEB 
discussion. 


UPPER-PHASE DATA 
Necessary Data 


Variable 


Description 


TB(I) 


(I = 1, 6) Durations for each phase, sec 
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Variable 


Description 


TB(1) Refers to last booster phase. K TB(K + 1) = 0, total num- 

ber of phases = K, 2 < K < 6 (e.g. , TB = 100, 150, 30). 
Note that duration for each phase must be loaded whether 
duration is fixed or optimized. If a phase is optimized, 
duration serves as guess required for iteration procedure. 


THRUST, FLOW, PROP, and NOPT are subscripted variables, the first member of 
which refers to the last booster segment. The total loaded in a given problem equals K, 
the number of phase durations. 


Variable 


Description 


THRUST (I) 

FLOW(I) 

PROP(I) 


HARD (I) 

NOPT (I) 

PSI 

PSID 

THICK 


(I = 1, K) Vacuum thrust levels, preloaded to zero, lb; N 

(I = 1, K) Flow rates, preloaded to zero, lb/ sec; kg/ sec 

(I = 1, K) Hardware structure factors, where PROP(I) equals 
k in equation 

W s =W H + kW p 

where W g is total structure weight of a phase, is a 
fixed weight, k is propellant sensitive structure factor, 
and Wp is propellant weight for phase. PROP is pre- 
loaded to zero. 

(I = 1, K) Fixed hardware weight where HARD (I) equals Wjj 
in preceding equation, HARD (I) is preloaded to zero, lb; 
kg 

(I = 1, K) NOPT (I) = 1 indicates that I* k phase duration is to 

7 th 

be optimized. NOPT(I) = 0 indicates that I n phase dura- 
tion is fixed. 

Guess at initial thrust angle, measured upwards from local 
horizontal, (e.g., PSI = 0. 525), rad 

Guess at time rate of change of thrust angle, (e.g. , 

PSID = 0. 0014. ), rad/ sec 

Guess at kick angle of booster, (e. g. , THICK = 88. 6), deg 
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Variable 


Description 


ITERPD 

MODE (I) 

MODE(l) 
MODE (2) 
MODE (3) 


If fixed kick angle is desired, ITERPD = 1 must be loaded. 

If kick angle is to be optimized, ITERPD = 0, which is pre 
loaded. 

(I = 1, 3) Variable which determines output frequency for 
upper -phase portion of trajectory. 

Determines output frequency for printout during process of 
iteration. MODE(l) = 61 is preloaded. 

Determines output frequency for converged upper -phase 
printout. MODE (2) = 51 is preloaded. 

Determines output frequency for converged trajectory which 
exceeds one of propellant constraints imposed by loading 
WPMAX. MODE (3) = 61 is preloaded. 


MODE is a two-digit number performing for the upper phases the function MODEB 
does for the booster. (See MODEB and the section on OUTPUT CONTROL . ) 


Optional Data 


Variable Description 

DROP Weight dropped between integrated portion of trajectory and 

impulse velocity increment, DROP = 0 is preloaded, lb; 
kg 

WPMAX(I) (I = 1, K) An upper bound may be placed on propellant loading 

of any optimized phase. If that is exceeded, duration of 
that phase will be fixed at time which will exactly consume 
specified maximum allowed propellant and remaining 
phases open to optimization will be reoptimized. 

WPMAX(I) = 0 is equivalent to not specifying maximum 
propellant for I Ln phase, and zero is preloaded, lb; kg 

If the last phase duration is optimized and the maximum propellant loading is spec- 
ified, it is important to note that this maximum propellant loading refers only to the 
propellant required to satisfy the specified final conditions and does not include any of the 
propellant required for any additional impulsive velocity increment. If the propellant 
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maximum is exceeded, the last phase duration will be fixed so that the specified propel- 
lant will be used before the impulsive velocity increment is added. 

DELMX, TMIN, and STEP supply values to the internal variables DELMAX, TMIN, 
and STEPS, respectively, at the appropriate times. 


Variable 


Description 


DELMX (I) 


TMIN (I) 


STEP(I) 


(I = 1, 3) DELMX supplies appropriate time interval to 
DELMAX. (See section on OUTPUT CONTROL. ) Sub- 
scripts of DELMX refer to unconverged, converged, and 
WPMAX exceeded printout as in MODE discussion, sec 

(I = 1, 3) TMIN supplies appropriate time to internal TMIN. 
(See section on OUTPUT CONTROL. ) Note that loaded 
TMIN is subscripted and does not have same location as 
TMIN in STEP. Subscripts of TMIN refer to unconverged, 
converged, and WPMAX exceeded printout as in MODE 
discussion, sec 

(I = 1, 3) STEP supplies the appropriate value to STEPS. 

(See section on OUTPUT CONTROL. ) Subscripts of STEP 
refer to unconverged, converged, and WPMAX exceeded 
printout as in MODE discussion. 


FINAL CONDITIONS 

There are four sets of final conditions available in the program. These are listed 
and explained in the section FINAL BOUNDARY CONDITIONS. 

Necessary Data 


Variable 


Description 


NFINAL 

NFINAL = 1 


Determines which of final conditions will be used. 

Preloaded; maximum payload to specified energy, radius, 
and flight path angle; equivalent to specified radius, 
radial velocity, and angular velocity. For convenience, 
program may be loaded either way. 
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Variable 


Description 


FYD(I) 

FYD(l) 

FYD(2) 

FYD(3) 


(I = 1, 3) If radius, radial velocity, and angular velocity are 
desired final conditions, they are loaded as follows: 

Radius, ft; m 

Radial velocity (preloaded to zero), ft/ sec; m/ sec 
Angular velocity (preloaded to zero), rad/ sec 


It is very unusual to desire a final condition in which the angular velocity is equal to 
zero. FYD(3) = 0 is therefore used as a trigger to inform the program that the user 
wishes to specify energy, radius, and flight path angle in which case thefollowing are loaded: 


Variable 


Description 


ENERGY 

FYD(l) 

ANG 

NFINAL = 2 

ENERGY 

NFINAL = 3 

ENERGY 

ANG 

NFINAL = 4 

ENERGY 

FYD(l) 


Energy, ft 2 /sec 2 ; m 2 /sec 2 
Radius, ft; m 

Flight path angle, preloaded to zero, rad 

Maximum payload to a specified energy; energy must be 
specified 

_ o.2/ 2 2/ 2 

Energy, ft / sec ; m / sec 

Maximum payload to some specified energy and flight path 

angle; energy and flight path angle are loaded 

2 2 2 2 
Energy, ft / sec ; m / sec 

Flight path angle, rad 

Maximum payload to some specified energy and perigee 

radius; energy and perigee radius are loaded 

2 2 2 2 
Energy, ft /sec ; m /sec 

Perigee radius, ft; m 
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Optional Data 


Variable 

DELTAV 


RESERV 


Variable 

MODE 

MODE = 3 
MODE = 2 
MODE = 1 
MODE = 0 


NDUMP 

NDUMP = 1 
NDUMP = 0 
DELTB 


Description 

After final conditions specified by selecting NFINAL are 
reached, an additional impulsive velocity increment may 
be added with final integrated phase. If DELTAV is loaded, 
propellant required for velocity increment will be consid- 
ered in optimization of last phase propellant loading. 
DELTAV = 0 is preloaded, ft/sec; m/sec 

Identical to DELTAV except that additional propellant re- 
quired in last phase for velocity increment is not included 
in phase propellant optimization. RESERV = 0 is pre- 
loaded, ft/sec; m/sec 


PROGRAM CONTROL VARIABLES 

Description 

Used to control loading and generation of binary booster 
tables (see section BINARY BOOSTER TABLE) 

Loaded when a binary booster table is to be loaded 

Never loaded 

Never loaded 

Loaded when new booster is desired in course of machine 
submission and no table is provided for new booster. 

Note that MODE is not loaded when there is no table 
available for first problem in a submission and is not 
loaded as long as same booster was used in problem pre- 
ceding one under consideration. 

Controls production of binary cards 

Binary cards punched, preloaded 

No binary cards punched 

Initial integration step size for booster, DELTB = 2. 0 is 
preloaded, sec 
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Variable 


Description 


DELTST 


DELTK 


DX(I) 


CLEAR 


CMAX 


Initial integration step size for upper phase, DELTST = 10. 0 
is preloaded, sec 

Grid spacing for booster table kick angles (see section 
BOOSTER)DELTK = 0. 1/2 1 , i - 0, 1, 2, ... , DELTK = 0. 1 
preloaded, deg 

(I = 1, 5) Supplies initial perturbation sizes for finite- 


difference scheme 


X p = X n + DX(J) • X_ 


n’ 


where X is 
n 


reference value of initial condition and X^ is perturbed 
value. (DX(I) = 1. 0 E-05, I = 1, 5) is preloaded. 

If at beginning of new problem, user wishes to restore 
initial values to DX array, load CLEAR = 1. If CLEAR 
= 1 is not loaded, final values of DX from previous prob- 
lem will be used, as is frequently desirable. 

Each time new reference trajectory is integrated in course 
of solving boundary value problem, internal variable 
COUNT is incremented by 1. If convergence is not ob- 
tained when COUNT equals CMAX, problem is abandoned 
and program reads in next set of input data. CMAX = 20 
is preloaded. 


NDAMP, ERR, and ERROR are variables which rely either directly or indirectly on 
equation (11) from the section ITERATION PROCEDURE. 


6m 


t ft" 


ni/2 


< bm T 


This equation is used to determine whether the iteration is converging, whether it 
remains advantageous to perturb the reference trajectories, and also as one of the two 
criteria for admitting convergence and checking the booster table grid spacing. 


Variable 


Description 


NDAMP 


ERR 

ERROR(I) 

ERROR(l) 

ERROR(2) 

TOL(I, J) 

TOL(I, 1) 
TOL(I, 2) 

NPRINT 


In ITERATION PROCEDURE, a procedure described as 
damping is discussed in which changes in initial conditions 
from one reference trajectory to the next are halved if 
new trajectory is not an improvement over old. Number 
of times this operation may be repeated before problem 
is abandoned is limited by NDAMP. NDAMP = 5 is pre- 
loaded. 

Perturbations of reference trajectories may be discontinued 
when 6m < ERR * m^, where ERR is preloaded equal to 
1.0 E-04. 

(I = 1, 2) Constitutes variable factor in first convergence test 
described in ITERATION PROCEDURE. Test is satisfied if 
6m < ERROR(l) * mj 

1. 0 E-04 is preloaded. 

Constitutes variable factor in second part of check on accept- 
ability of grid spacing of kick angles in booster table. The 
spacing is accepted if 6m < ERROR(2) * nij. ERROR(2) 

= 1. 0 E -03 is preloaded. 

(I = 1, 5; J = 1, 2) Second convergence test described in 
ITERATION PROCEDURE section (eq. (12)) requires that 
( 1 6y* | < Q 1 B 1 ) where i = 1, n. This test is used for both 
convergence of Newton-Raphson scheme and as a check 
on grid spacing of booster table. TOL is equivalent to 
B -vector. 

Constitutes variable factor in second convergence test. Test 
is satisfied if y* < TOL(i, 1) * Q 1 where i = 1, N. 

TOL (1, 1) = 1. 0 E-04, I = 1, 5 is preloaded. 

Constitutes variable factor in first part of check on accept- 
ability of grid spacing of kick angles in booster table. 
Spacing satisfies test if y* < TOL(i, 2) * Q 1 where 
i = 1, N. TOL (1, 2) = 1. 0 E-03, I = 1, 5 is preloaded. 

User has option of seeing perturbed trajectories. NPRINT 
= 1 causes the program to print these trajectories if the 
unconverged trajectories are printed. NPRINT = 0 (pre- 
loaded) omits the perturbed trajectories. 
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Variable 


Description 


OBLATN 


NPRNTB(I) 


NPRNTI(I) 


NPRNTC (I) 


If OBLATN = 1 (preloaded), the oblate earth model given in 
reference 3 is used. A spherical model is used if 
OBLATN = 0. 

(I = 1, 6) NPRNTB supplies NOUT values for boost trajectory 
(for a multiphase booster). (See section on OUTPUT 
CONTROL. ) If user wishes to print some phasing points 
but wishes to omit others, he may load NPRNTB (I) = 1 
to omit phasing printout on I Ln booster phase. 

NPRNTB (I) = 0, I = 1, 6 is preloaded. 

(I = 1, 6) NPRNTI supplies NOUT values for unconverged 
upper -phase trajectories. (See section on OUTPUT 
CONTROL. ) It is similar to NPRNTB and is similarly 
preloaded. 

(I = 1, 6) Serves same purpose as NPRNTI except that it con- 
trols printout for converged upper phases. NPRNTC (I) = 0, 
I = 1, 6 is preloaded. 


EREF, ERLIMT, and STEPMX are the control variables for the integration scheme. 
Appendix D of reference 3 contains a description of the integration method. An adequate 
understanding of these variables would require a knowledge of the information in appen- 
dix D of reference 3. Therefore, only the preloaded values of these variables are listed 
here: 


Variable 


Description 


EREF 

ERLIMT 

STEPMX 

ERRMXK 


EREF = 1. 0x10"^ is preloaded. 

ERLIMT = 3x10"^ is preloaded. 

STEPMX = 200 is preloaded. 

Internal optimization requires that phases be terminated 
when designated parameters reach certain values. This 
is accomplished in a routine called COAST. The toler- 
ance within which these must agree is equal to ERRMXK, 
which is preloaded equal to 1. 0 E-05. 
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PROGRAM CONSTANTS 


The program requires a few constants which are all preloaded, but which may be 
altered at execution. 

As discussed at the beginning of the directions, the program is preloaded in U. S. 
Customary units. SI units may be used. IntheU.S. system, weight and force are loaded 
in the same units. In the SI system, force may be loaded in newtons or in kilograms 
force where there is a factor of g between the two when they represent the same force. 


In order to accommodate either convention, if the weight (or mass) is loaded in the same 
units as the force, then G must be loaded equal to the equivalent of 32. 174. If force and 
weight (or mass) are loaded in different units, G should be set equal to 1. This rule 
would, of course, apply to any set of units. CONM and CONN are preloaded for the U. S. 
system of units. 

Variable 

Description Preloaded 

value 

Units 

FM 

Gravitational constant for Earth 1. 4076539E+16 

ft®/ sec 2 

RO 

Earth radius used in upper -phase por- 20. 90989E+06 

tion of deck 

ft 

A 

Semimajor axis of oblate earth model 20. 925738E+06 

ft 

B 

Semiminor axis of oblate earth model 20. 855568E+06 

ft 

G 

Acceleration of gravity at Earth's sur- 32. 174 

face 

ft/ sec® 

REVOLV 

Angular velocity for Earth 7. 29211512E-05 

rad/ sec 

ROA 

Reference radius for use in interpola- 20. 969890x10® 

tion scheme 

ft 

CONM 

Conversion from meters to unit of 3. 2808398 

length for problem 

ft/m 

CONN 

Conversion from newtons to unit of 0. 22481905 

force for problem 

lb/N 


BINARY BOOSTER TABLE 

After a booster table has been generated, the user has the option of punching the 
table out on binary cards which may be read back into the program if the same booster 
should be reconsidered. (See IMODE and NDUMP in the section PROGRAM CONTROL 



VARIABLES. ) The subroutines which read and punch binary cards vary with the com- 
puter installation and therefore are not described herein. Copies of the Lewis Research 
Center routines will be provided with copies of the code, and the user must modify or 
replace them with routines of similar capability. 


CODING 


Appendixes D to H contain aides to utilizing the code. A listing of the program is 
provided in appendix H. All the required FORTRAN IV subroutines are arranged in 
alphabetic order. BCDUMP, BCREAD, and INPUT are not in FORTRAN and are not 
listed. Figure 1 is a block diagram showing the major routines in the program. The 
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INPUT routine requires an input table which is placed just before the data, as described 
in reference 5. A listing of this table is provided in appendix F. 

There are three main common blocks in the code: RUNG, ATABLE, and CSTAR. 
RUNG contains variables which are used in the integration and step size control. ATABLE 
contains those variables which may be stored on cards at the end of a problem and read 
into the computer later. The remaining program variables requiring common locations 
are in the CSTAR block. This block common is available to loading from the INPUT 
routine. 

Two lists of the variables in the three common blocks are provided. A glossary of 
variables in alphabetic order is provided in appendix D. A list of all the equivalence 
entries in the program in numerical order is provided in appendix E giving the name, 
subblock, location, dimension, and subroutine for each entry. 

Variable names are sometimes duplicated and the same storage may be occupied by 
unrelated variables or by the same variable appearing under another name. These dup- 
lications result from the fact that the code is a combination of two codes and from the 
difference in coordinate systems. The variables being integrated change depending on 
whether a booster or upper phase is being integrated. The two lists of variables pro- 
vided should clarify most, if not all, of the ambiguities introduced by the variable name 
and location duplication. 


SAMPLE PROBLEM 

A sample problem has been provided to enable the user to observe the way in which 
data are loaded into the program and some of the conveniences of the input routine. The 
listing for the sample problem is given in appendix G. Examples of addition, multipli- 
cation, and division are provided in the input data. 

The sample problem consists of a three -stage booster to Earth escape passing 
through a 121 -nautical -mile (224 092-m) circular parking orbit. The maneuver from 
orbit to escape is simulated by introducing an impulsive velocity increment at the end of 
the last integrated phase. The vehicle consists of a hypothetical kerosene - liquid-oxygen 
first stage, a hydrogen-oxygen second stage, and a nuclear third stage. 

The data are listed in the order in which they are introduced in the set of directions. 
All the necessary data are explicitly introduced, although some data might have been 
skipped by utilizing the preloaded values. A few of the optional data entries are utilized. 
The input data and vehicle parameters should be easily understood if an item by item 
comparison is made between the data and the DIRECTIONS FOR UTILIZ ATION OF DECK . 

The first example illustrates the case where all the stages are optimized. The 
booster output is an example of the abbreviated output. The initial kick angle spacing is 
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also too large causing the program to cut the spacing and run another booster. The sec- 
ond case fixes the first-stage duration and optimizes the last two. The third case fixes 
the duration of the first two stages and optimizes the third. The full booster output is 
used for the last two cases. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, May 1, 1968, 

180-31-01-01-22. 


32 


Ill I I I 


APPENDIX A 
SYMBOLS 


A e 

2 2 

ermine exit area, ft ; m 

W s 

total structure weight for a phase. 

A ref 

2 2 

vehicle reference area, ft ; m 

lb; kg 

a 

coefficient in interpolation equa- 

X 

problem variable 


tion (eq. (4)) 

y 

problem variable 

B 

convergence tolerance 

z 

n-vector of differences 

b 

convergence tolerance 

"k 

booster kick angle, deg 

C D 

total drag coefficient 

r 

flight path angle, rad 

E 

energy, ft /sec ; m /sec 

e 

argument of perigee, rad 

e 

eccentricity 

e 

true anomaly, rad 

F 

thrust, lb force; N 

X 

Lagrange multiplier 

k 

propellant sensitive structure 
factor 


Earth force constant, ft 2 / sec 2 ; 

3, 2 

m /sec 

M 

matrix relating changes in final 

T 

burning time, sec 


and initial conditions 

<P 

polar angle, rad 

m 

mass, slugs; kg 

* 

thrust direction, rad 

n 

P 

iteration size 

O 

atmospheric pressure, lb/ft ; 

( t) 

angular velocity, rad/ sec 

P 

Q 

q 

R 

N/m 2 

semilatus rectum, ft; m 

comparison parameters for con- 
vergence determination 

p p 

dynamic pressure, lb/ft ; N/m 
radius, ft; m 

Subscripts: 

I initial 

r difference between reference 

and desired values 

v vacuum 

r p 

*B 

w H 

perigee radius, ft; m 
booster phase duration, sec 
fixed structure weight for a 

Superscripts: 
i variable number 

phase, lb; kg 

j 

variable number 

W P 

propellant weight for a phase, 
lb; kg 

C) 

derivative with respect to time 
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APPENDIX B 

BOOSTER STEERING 

As described in the section on the booster, the boost trajectory begins with a short 
vertical rise of fixed time after which the vehicle is tilted or kicked over instantaneously 
at some small predetermined angle in the desired azimuth direction. During the vertical 
rise, the unit thrust vector f = R Q , where R Q is a unit vector in the direction of the 
radius vector at launch. At the end of the vertical rise, the relative velocity vector is 
rotated to the desired kick angle (measured from the horizontal) in the desired azimuth 
direction. 

For the remainder of the boost trajectory, the unit thrust vector f is constrained to 
the launch azimuth plane. Hence, 


f • N = 0 (Bl) 

where N is a unit vector normal to the launch azimuth plane. The component of the 
thrust vector that lies in the R - V R (pitch) plane lies along the relative velocity vector; 
that is, 


f = + K 2 h (B2) 

where V R is a unit vector in the direction of the relative velocity and h is the unit rela- 
tive angular momentum vector given by 


Rxv^ 

|rxv r | 


(B3) 


The coefficients Kj and Kg are evaluated by using equations (Bl) and (B2). Evaluating 
Kj and Kg and substituting them into equation (B2) yields 


f = 


(h • N)V r + (V R • N)h 
^/(h • N) 2 + (V r • N) 2 


(B4) 


The equations for N in an equatorial rectangular coordinate system where the X-Z 
plane passes through Greenwich are 
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N x = sin A cos 0 - cos A sin L sin /3 

N y = -sin A sin L sin /3 - cos A cos /3 (B5) 

N z = cos L sin /3 

where L and A are launch latitude and longitude, respectively, and ft is launch 
azimuth angle measured from North in the horizontal plane. 
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APPENDIX C 


SELECTION OF OPTIMIZING EQUATIONS 

As described in the section UPPER PHASES, the Newton -Raphson iteration size is 
decreased by resorting to internal optimization procedures. These are of two types. The 
simplest to implement are those which require either satisfaction of a closed-form equa- 
tion or a very simple iteration at the beginning of a trajectory. These are adequately 
described in appendix B of reference 1. Of more complexity, both in selection and imple- 
mentation, are those which require that phases of the trajectory be terminated by opti- 
mizing equations. These are derived as explained in the section Boundary Value Problem 
of reference 1. It will be assumed that the reader has both access to and some knowledge 
of that report. The purpose of this appendix is to demonstrate how the optimization equa- 
tions (eqs. (45) to (51)) found in the analysis report are implemented. 

The optimization equations are evaluated at the beginning or end of the particular 
phases with which they are associated. The first optimized phase (a phase of unspecified 
duration) does not have an accompanying equation that may be evaluated during that phase. 
The remaining optimized phases all supply an optimizing equation that must be satisfied 
for optimum payload. If the structure factor for an optimized phase is nonzero, its opti- 
mizing equation is evaluated at the end of the phase; if it is zero, the equations must be 
evaluated at the beginning of the phase. As explained in reference 1 and noted herein, 
optimized phases may be terminated by evaluating the optimizing equations during the 
appropriate phases and terminating the phase when the equation reaches the desired 
value. As also noted earlier, phases that may be terminated in this manner remove an 
initial condition and a final condition from the Newton -Raphson scheme. Of course, 
those optimizing equations that may not be satisfied by terminating a phase must be 
satisfied in the Newton -Raphson iteration. 

Two examples are provided to demonstrate how the choices are made as to which 
equations are used to terminate phases and which phases are placed in the Newton- 
Raphson iteration. These examples are for six-phase problems. Problems that require 
fewer than six phases are treated in an identical manner. 

The first example assumes that the kick angle is fixed. 
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Phase 

1 

2 

3 

4 

5 

6 

Optimized (O), fixed (F) 

0 

0 

0 

0 

0 

0 

Structure factor, k 

0 

0 

* 0 

0 

0 

* 0 

Evaluated beginning (B), 
end (E) 

- 

B 

E 

B 

B 

E 

Equation number from 
reference 1 


(51) 

(47) 

(48a) 

(48a) 

(50) 


From this chart, it may be seen that equation (51) must be satisfied between the 
booster and the first upper phase. This equation is satisfied by choosing the initial 
thrust angle i//, such that the equation is satisfied, rather than by varying the booster 
duration as might be done. The booster duration is part of the Newton-Raphson iteration. 

There is no equation between the second and third phases; therefore, the second 
phase duration must also be in the Newton-Raphson iteration. There are two available 
equations between the third and fourth phases. Equation (47) may be used to terminate 
phase three, and equation (48a) must be satisfied in the iteration, where equation (48a) 
refers to phase four. Equation (48a) (referenced to phase five) must be satisfied be- 
tween phases four and five and hence phase four may be terminated by using this equa- 
tion. There is no equation between phases five and six; therefore, the duration of phase 
five must be part of the iteration. 

The sixth phase may be terminated by using equation (50) or it may be terminated 
when the desired energy is acquired. Either of these considerations may be used success- 
fully to terminate the phase, while the other must be placed in the iteration. Termination 
on energy proved to be more satisfactory from a convergence standpoint. It is used to 
terminate, leaving equation (50) to the iteration. 

In the second example, the kick angle is optimized. 


Phase 

1 

2 

3 

4 

5 

6 

Optimized (O), fixed (F) 

F 

F 

0 

0 

0 

F 

Structure factor, k 

* 0 

0 

* 0 

0 

* 0 

* 0 

Evaluated beginning (B), 
end (E) 




B 

E 


Equation number from 
reference 1 




(48a) 

(47) 
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The fixed phases provide no optimization equations. The first and second phases are 
of fixed duration and therefore are terminated at the specified times. Note that, although 
phase three is of optimized duration, it is the first optimized phase and therefore pro- 
vides no optimization equation. Equation (48a) (referenced to phase four) may be used to 
terminate phase three since it is evaluated at the beginning of phase four. There is no 
equation to be evaluated between phases four and five. The duration of phase four must 
be placed in the iteration. Between phases five and six there is an equation available for 
terminating phase five. The sixth phase is of fixed duration and thus is terminated on 
time. 

Suppose that there is an equation that must be satisfied between a fixed phase and an 
optimized phase. Obviously, the equation must be satisfied in the iteration since the 
fixed phase would most conveniently be terminated on time. 



APPENDIX D 


Variable 

A1 

A2 

DELI 

DELSTO 

E2 

H2 

I 

NSTAG1 

NSTEP1 

NSTEP2 

NSTEP3 

RATIO 

RELERR(IOO) 

SCRIBE 

STEPGO 

ISTEPNO 


GLOSSARY OF VARIABLES 
/RUNG/ 

Common Block 


Common Definition 

location 


101 Error control parameter in integration scheme (ref. 3) 

102 Error control parameter in integration scheme (ref. 3) 

103 Time interval to next DELMAX printout 

104 Correction factor for DELI 

105 Largest of relative errors between Runge-Kutta and a 

second-order integration (ref. 3) 

106 Value of DELT for previous step 

107 Control parameter to restart integration scheme at dis- 

continuities and to override step size control 

115 Value of NSTAGE for previous step 

108 Control parameter for output control 

109 Control parameter for output control 

110 Control parameter for output control 

111 Ratio of adjacent step sizes (ref. 3) 

1 Relative error array, array of quotients of absolute dif- 
ferences between Runge-Kutta and second-order inte- 
gration and some comparison parameter 

114 Control parameter for printout at beginning of integration 
and when scheme must be restarted 

112 Total number of good integration steps 

113 Total number of bad integration steps 
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Variable 

Common 

location 

Definition 

XINC(IOO) 

1 

Increments of integration variables per step (in RUNGEK), 
before ERRORZ is called; absolute differences between 
Runge-Kutta and second-order integration are placed in 
this storage 



/ATABLE/ 



Common Block 

Variable 

Common 

location 

Definition 

ALT 

5 

Altitude at end of vertical rise 

ANGLEB(4) 

25 

Storage for latitude, longitude, azimuth at end of vertical 
rise (similar to ANGLES) 

APR 

4 

Storage for semimajor axis for ellipsoidal planet model 
or for radius of spherical planet model 

APT(3, 100) 

201 

APT(1, J) is storage for kick angles (note that this variable 
occupies same storage as KPT) 

DELTB 

16 

Time interval between entries in table 

DELTK 

199 

Aa k for table in storage 

FIRST(28) 

1 

General array of conditions at end of vertical rise 

FOURTH(7500) 

501 

General array for state conditions stored in table 

FUELT 

14 

Propellant used prior to last phase (in which data in table 
are stored) 

HARDBT 

15 

Total hardware dropped before table storage begins 

HSTORE 

12 

Heat integral to end of vertical rise 

IKICK 

200 

Number of kick angles in table 
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Variable 

Common 

location 

Definition 

KPT (3, 100) 

201 

KPT(2, J) index noting position of data in storage, KPT(3, J) 
indicator for acceptability of data (indicates boost trajec- 
tory may have been unable to complete specified time) 

NKICK 

20 

Number of kick angles which may be stored in table 

NKICKS 

21 

One of dimensions of VAR (see BOOST) 

OBLATN 

2 

Control parameter for oblateness 

RADIUS 

13 

Radius at end of vertical rise 

SECOND(2) 

199 

General array for DELTK and IKICK 

TBLAST 

18 

Time for end of table storage 

TBO 

17 

Weight at beginning of table storage 

THIRD (3 00) 

201 

General array for APT and KPT 

TMINST 

19 

Storage for TMIN 

TSPM 

10 

Time at beginning of last booster phase (table storage 
phase) 

UN(3) 

22 

Unit vector perpendicular to launch azimuth plane 

VAR 

501 

Storage for state conditions stored in table 

VEL 

1 

Velocity at end of vertical rise 

WSTORE 

11 

Weight at end of vertical rise 

XSTORO(4) 

6 

Radius vector (X-, Y-, and Z-components) and magnitude 
at launch 



/CSTAR/ 



Common Block 

Variable 

Common 

location 

Definition 

A 

813 

Semimajor axis of ellipsoidal planet 

ALT 

805 

Altitude above oblate planet 


Variable 

Common 

location 

Definition 

ANGLES (4) 

786 

Angles (1) latitude. Angles (2) longitude. Angles (3) 
azimuth, and Angles (4) elevation 

APTMAX(3) 

1126 

List of kick angles used in interpolation 

AREA 

809 

Drag reference area 

ASTART 

798 

Altitude at lift-off 

AZIMI 

921 

Inertial azimuth heading (see ORBEL2) 

AZIMR 

922 

Relative azimuth heading (see ORBEL2) 

B 

814 

Semiminor axis of ellipsoidal planet model 

BETA 

880 

Desired final flight path angle 

BETAI 

917 

Inertial flight path angle, three-dimensional model 

BETAR 

918 

Relative flight path angle, three-dimensional model 

CAPPA 

891 

General staging parameter (see COAST) 

CD 

812 

Drag coefficient 

CLEAR 

930 

Control parameter to reload DX array (see PROGRAM 
CONTROL VARIABLES 

CMAX 

928 

Total allowed iterations of Newton -Raphson scheme 

COEFN(500) 

1501 

Coefficient array for CD calculation (see QUAD) 

CONM 

717 

Conversion from meters to unit of length for problem 

CONN 

718 

Conversion from newtons to unit of force for problem 

COMP(5) 

1031 

Comparison parameters for convergence test 

COM PA (3) 

783 

Total nongravitational acceleration in X-, Y-, and Z- 
directions, three dimensional 

CONST(5, 2) 

894 

Constant defined in reference 1 (see CONEVL) equa- 
tions (11) and (41c) 

CPA 

719 

Factor for converting pressure to required units from 
kilograms force per square meter 

CPSI 

888 

Cosine 

DELMAX 

702 

See section OUTPUT CONTROL 

DELMX(3) 

1163 

See section UPPER-PHASE DATA 
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Variable 


Common 

location 


Definition 



DELMXB(2) 

DELT 

DELTAV 

DELTBT 

DELTKT 

DELTST 

DOMEGA 

DPHI 

DR 

DRAG (3) 
DRMASS 
DROP 
DTIME 



1174 See section BOOSTER DATA 

701 Integration step size 

861 See section FINAL CONDITIONS 

803 Initial integration step size, booster 

1058 See DELTK in section PROGRAM CONTROL VARIABLES 
931 Initial integration step size, upper phase 

505 w where w = OMEGA 

503 (p where cp = PHI 

502 R 

777 Accelerations due to drag, X-, Y-, and Z -components 
501 W, where W = weight 

863 See section UPPER-PHASE DATA 

509 Derivative of time, equal to 1 

504 R 

938 Perturbation parameter, see directions in section 
PROGRAM CONTROL VARIABLES 

506 (ref. 1) 

507 X 2 (ref. 1) 

508 X 3 (ref. 1) 

905 Eccentricity 

790 Kick angle, internal variable 

892 See section FINAL CONDITIONS 

713 Reference error parameter (ref. 3) 

706 Max integration error parameter (ref. 3) 

707 Natural logarithm of EREF 

1041 Iteration control parameter (see section PROGRAM 

CONTROL VARIABLES) 

1054 Tolerance on parameters which terminate phases internally 
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Variable 

Common 

location 

Definition 

ERROR(2) 

1042 

ERROR(l) convergence tolerance, ERROR(2) tolerance 
for checking kick angle spacing 

ESTART 

795 

Initial elevation angle 

EXITS (6) 

727 

Engine exit areas (see section BOOSTER DATA) 

FDM 

886 

Acceleration during upper phases 

FIXDTK 

1071 

FIXDTK = 1, and TB(1) fixed so only one booster 

needs be run, FIXDTK = 2, no more boosters will be 
integrated, and FIXDTK = 3, normal mode 

FLOMX(6) 

837 

Flow rates for upper phases (see section UPPER-PHASE 
DATA) 

FLOW 

752 

Instantaneous flow rate during booster phase 

FLOW 

877 

Instantaneous flow rate during upper phases 

FM 

715 

Gravitational constant 

FORCE (3) 

774 

Accelerations due to thrust in X-, Y-, and Z -directions 

FORCES (6) 

739 

Thrusts during booster phase (see section BOOSTER DATA) 

FUEL(6) 

871 

Weights of propellants expended during upper phases 

FUELDV 

878 

Propellant required for impulsive maneuver 

FY(6, 6) 

943 

Array containing deviations from desired final conditions 
for reference and perturbed trajectories (used in 
Newton-Raphson scheme) 

FYD(5) 

1036 

Array containing desired final conditions 

G 

716 

Nominal acceleration of gravity at surface of Earth 

H(5) 

769 

Angular momentum vector H(l) X-component, H(2) Y- 
component, H (3) Z -component, H(4) = H(l) 2 + H(2) 2 
+ H(3) 2 , and H(5) = ^H(4j 

HARD (6) 

843 

Hardware weights for upper phases 

HARDB(6) 

721 

Hardware weights for multiphase booster model 

HEAT 

401 

Instantaneous value of heat integral during booster 

HORV 

1156 

Horizontal velocity stored in table 


Variable 

Common 

location 

Definition 

IB URN 

1072 

Counter for loading table 

ICC (20) 

1201 

ICC(l) location in COEFN of coefficients used in CD inter- 
polation (see subroutine COEFNT) 

IDATA(6, 5) 

1086 

Array used to determine which phases are placed in iter- 
ation and which are terminated internally (see appendix 
C) 

IKCKST 

1066 

Temporary storage for DOCK, number of kick angles for 
which trajectories have been integrated 

IMODE 

1061 

IMODE = 0, integrating vertical rise; IMODE = 1, inte- 
grating booster; IMODE = 2, integrating upper phases; 
and IMODE = 3, table to be loaded 

ITB(3) 

1123 

Counter to indicate discrete burning times to be used in 
interpolation in BOOST 

ITK(3) 

1120 

Counter used to determine kick angles used in interpola- 
tion in BOOST 

ITER 

1068 

Number of phase durations in Newton-Raphson iteration 

ITERAD 

1067 

ITERAD = 1, kick angle in iteration, booster duration 
optimized in START; ITERAD = 2, kick angle in 

iteration; ITERAD = 3, kick angle fixed, PSIO 

optimized in START 

ITERP 

1069 

Size of Newton-Raphson iteration minus two 

ITER PD 

1060 

ITERPD = 0, kick angle optimized; ITERPD = 1, kick 
angle fixed 

JCOAST(6) 

1130 

Array for determining proper equations for terminating 
phases in COAST 

JCOST 

1129 

Control parameter for COAST 

JDATA 

925 

JDATA = 1, Newton-Raphson unconverged; JDATA = 2, 
Newton-Raphson converged; JDATA = 3, Newton- 
Raphson converged, but a propellant limitation has 
been exceeded 

JFINAL(6) 

1136 

Array for determining proper equations for optimizing 
phases in FINAL 
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Variable 

Common 

location 

Definition 

JK3CK 

1063 

Index expediting selection of kick angles for interpolation 

K 

1182 

Used in STEP to indicate converged and nonconverger 
output 

LAST 

711 

Number of phases being integrated at a given time; may be 
equal to 1, LAST1, or LAST2 

LAST1 

753 

Number of booster segments 

LAST2 

890 

Number of upper phases plus one 

MASH 

1064 

MASH = 0, problem proceeding normally; MASH = 1, if 
set to one in MAIN, then spacing too large; if set to one 
elsewhere, either the perturbation or change in initial 
conditions is so large as to prevent internal optimization 

MODE (3) 

1160 

See section UPPER-PHASE DATA 

MODEB(2) 

1172 

See section BOOSTER DATA 

MODEC 

1180 

See section BOOSTER DATA 

MODOUT 

714 

See section OUTPUT CONTROL 

MODS 

712 

See section OUTPUT CONTROL 

NCUTE 

893 

NCUTE = 0, last phase not terminated on energy; 
NCUTE = 1, last phase terminated on energy 

NDAMP 

926 

Number of damping operations allowed in iteration (see 
section PROGRAM CONTROL VARIABLES) 

NDUMP 

1057 

See section PROGRAM CONTROL VARIABLES 

NEQ 

709 

Maximum index in integration loop 

NFINAL 

879 

See section FINAL CONDITIONS 

NOPT(6) 

819 

Indicates fixed or variable phase duration (see section 
UPPER-PHASE DATA) 

NOPTA 

1070 

Number of first optimized phase 

NOUT(6, 3) 

1183 

See section OUTPUT CONTROL 

NPRINT 

1181 

NPRINT = 0, perturbation omitted; NPRINT = 1, pertur- 
bation printed 

NSAVE(20) 

1241 

See subroutine COEFNT 
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Variable 

Common 

location 

Definition 

NSETS(20) 

1221 

See section DRAG MODEL 

NSHOT 

929 

NSHOT * 0, a single upper-stage trajectory is integrated 

NST 

708 

Minimum index in integration loop 

NSTAGE 

710 

Phase counter during integration 

NTB(3) 

1116 

Phase numbers of phases to be optimized in Newton - 
Raphson iteration 

NVAR 

1073 

Number of parameters stored in each table entry 

OBLAT(3) 

780 

Acceleration due to oblateness in X-, Y-, Z -directions 

OBLATD 

816 

Fourth spherical harmonic coefficient in oblate earth 
model 

OBLATH 

817 

Third spherical harmonic coefficient in oblate earth model 

OBLATJ 

818 

Second spherical harmonic coefficient in oblate earth 
model 

OBLATN 

• 815 

OBLATN = 0, spherical earth model; OBLATN = 1, oblate 
model utilized 

OMEGA 

405 

605 

Angular velocity 

P 

906 

Semilatus rectum 

PA 

806 

Pressure 

PAR(6, 2) 

1142 

Partials of booster burnout conditions as function of 
and booster burning time 

PERB(2) 

1055 

See section BOOSTER DATA 

PERIOD 

910 

Period of orbit 

PHI 

403 

603 

Polar angle traversed during upper phases 

PHH 

911 

Inertial travel angle during booster 

PHIR 

912 

Relative travel angle during booster 

PROP(6) 

849 

Propellant sensitive structure factors 

PSI 

885 

Thrust angle 
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Variable 

Common 

location 

Definition 

PSIDO 

882 

Initial xp at beginning of variational phase 

PSIO 

881 

Initial \p at beginning of variational phase 

PUSH 

751 

Thrust during booster 

Q 

807 

Dynamic pressure 

QVAL 

808 

QVAL = Q * AREA/W * G 

R 

402 

602 

Radius 

RANGE 

914 

Surface distance from launch site to projection of position 
on planet 

RB(5) 

754 

RB(1) X-component of radius vector; RB(2) Y-component 
of radius vector; RB(3) Z -component of radius vector; 
RB(4) - RB(1)**2 + RB(2)**2 + RB(3)**2; RB(5) - ^/RB(4) 
= radius 

ROOT 

1155 

Vertical velocity stored in table 

RE 

924 

Radius of oblate earth 

RERUN 

927 

See section BOOSTER DATA 

RESERV 

862 

See section FINAL CONDITION 

REVOLV 

799 

Angular rotation rate of planet 

RMASS 

401 

Instantaneous weight during upper phases 

RO 

904 

Reference radius for spherical earth, used for altitude 
calculations 

ROA 

1062 

Reference radius used to improve interpolation accuracy 
for radius 

S(6,2) 

1074 

Parameters used in optimum staging equations 

SINA(4) 

791 

SINA(J) = SIN(ANGLES(J)), J * 1, 4 

SPSI 

887 

Sin \p 

STEP(3) 

1166 

See section UPPER-PHASE DATA 

STEPB(2) 

1176 

See section BOOSTER DATA 

STEPMX 

705 

Maximum number of integration steps allowed 

STEPS 

704 

See section OUTPUT CONTROL 
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Variable 

Common 

location 

Definition 

TB(6) 

825 

Phase duration list (see section UPPER-PHASE DATA) 

TBOOST(6) 

745 

Phase durations for multiphase booster 

TBURN 

1065 

Booster burning time 

THETA 

909 

True anomaly 

THRUST (6) 

831 

Thrusts (see section UPPER- PHASE DATA) 

TIME 

409 

609 

Time from launch 

THICK 

1059 

a! k , kick angle 

TKUME 

804 

Vertical rise time 

TMIN 

704 

See section OUTPUT CONTROL 

TMINB(2) 

1178 

See section BOOSTER DATA 

TMIN1(3) 

1169 

See section UPPER-PHASE DATA 

T0L(5, 2) 

1044 

Tolerances for iteration convergence and spacing (see 
section PROGRAM CONTROL DATA 

TP 

907 

Time of perigee 

TPD 

908 

Time of perigee departure 

TRAVLI 

913 

Inertial distance traveled over planet surface during 
booster 

TS(6) 

932 

Phasing times 

TSTART 

796 

Time at beginning of booster integration 

U 

404 

604 

R 

UT(3) 

800 

Unit vector in direction of launch radius vector 

V 

889 

Velocity in upper phases 

V(6) 

1154 

Array containing altitude, vertical velocity, and horizontal 
velocity (a) from interpolation, (b) information stored 
in table 

V(100, 2) 

1301 

See section DRAG MODEL; V(l, 1) = VARIND; V(l, 2) 
= VARDEP 
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1 



Variable 

Common 

location 

Definition 

VATM(5) 

764 

Relative velocity vector VATM(l) = V R ; VATM(2) = V R 

VATM(3) = V R ; VATM(4) = VATM(1)**2 + VATM(2)**2 
K 2 

+ VATM(3)**2; VATM(5) - ^V ATM (4) 

VELEX 

870 

Jet velocity 

VELEXP(6) 

864 

Jet velocities for list of phases 

VELSD 

810 

Velocity of sound 

VMACH 

811 

Mach number 

VSTART 

797 

Initial velocity at lift-off 

VX(5) 

759 

VX(1) = V x ; VX(2) - V y ; V(3) = V z ; VX(4) = VX(1)**2 
+ VX(2)**2 + VX(3)**2; VX(5) = -y/VX(4) 

WEIGHT 

402 

Instantaneous weight during booster phase 

WPMAX(6) 

855 

Maximum propellants allowed in six phases 

WTFLOW(6) 

733 

Flows during booster phase (see section BOOSTER DATA) 

WTO 

720 

Initial gross weight 

X(100) 

401 

Working set of integration variables 

XDOT(IOO) 

501 

Array of integration derivatives 

XINPT(IOO) 

601 

Initial values of variables being integrated in variational 
phases 

XO(6, 5) 

1001 

Array containing initial conditions for reference and per- 
turbed trajectories in Newton-Raphson iteration 

XPRIM(100,2) 

001 

Two 100-variable double-precision arrays; second is in- 
tegrated and first contains values of integration vari- 
ables for last good step (see table I) 

ZINCLI 

919 

Inertial inclination of trajectory 

ZINCLR 

920 

Relative inclination of trajectory 

ZLAMO 

883 

Aq, scale factor, (see ref. 1) 

ZLAM1 

406 

606 

A-p Lagrange multiplier (see ref. 1) 
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! 


Variable 

Common 

Definition 


location 


ZLAM2 

407 

Xg, Lagrange multiplier (see ref. 1) 


607 


ZLAM3 

408 

Xg, Lagrange multiplier (see ref. 1) 


608 


ZLAM4 

884 

X^, Lagrange multiplier 

ZLAT 

916 

Latitude 

ZLONG 

915 

Longitude 

ZNODEI 

923 

Longitude of ascending node (inertial) 


TABLE I. - ELEMENTS OF INTEGRATION VARIABLE ARRAY XPRIM 


[XPRIM 10 to 100 are left for expansion. ] 


Integration 






XPRIM 




variables 

1 

2 

3 

4 

5 

6 

7 

8 

9 

Rectangular 

Heat 

Weight 

X 

Y 

Z 

X 

Y 

Z 

Time 

variables 



V x 

v y 

V z 

R x 

R 

y 

R z 


Polar 

RMASS 

R 

PHI 

u 

OMEGA 

X 1 


*3 

Time 

variables 

(weight) 

(radius) 

(polar 

R 

(angular 

(Lagrange 

(Lagrange 

(Lagrange 





angle) 


velocity) 

multiplier) 

multiplier) 

multiplier 
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APPENDIX E 


EQUIVALENCE TABLE 

THERE ARE FIFTY-TWO FORTRAN IV ROUTINES IN THIS CODE. THESE 
ARE LISTED IN ALPHABETIC ORDER. FOLLOWING THIS LIST IS A COMPILATION 
OF THE ECU I VAL ENCED VARIABLES IN THE CODE BY LOCATION, SEPARATED 
INTO THE THREE MAJOR COMMON BLOCKS. 


LIST OF ROUTINES 


1. AERO 

2. ATMOS 

3. ARCTAN 

4. BOOST 

5. CHECK 

6. COAST 

7. COEFNT 

8. CONE VL 

9. CONVT 

10. DAMODE 

11. DATAB 

12. DATATM 

13. DETERM 

14. DOT 

15. E0UAT1 

16. E0UAT2 

17. ERRORZ 

18. FINAL 

19. GUESS 

20. INVERT 

21. ITERAT 

22. LOAD 

23. MAIN 

24. MAINA 

25. MAI NB 

26. OBLATE 


27. ODDMOD 

28. OR BEL 

29. 0RBEL2 

30. 0UTPT1 

31. 0UTPT2 

32. PERDAT 

33. PERTB 

34. QUAD 

35. RENDER 

36. RUNGEK 

37. SADDA 

38. SADDB 

39. SCOMP 

40. SETUP 

41. SIMPRO 

42. SORTXY 

43. SSTAGE 

44. STAGE 

45. START 

46. STOAT A 

47. STEP 

48. STGSS 

49. THRUST 

50. TUDES 

51. XOLOAD 

52. ZMIN 


COMMON RUNG 

SUB 


VARIABLE 

BLOCK 

LOCATION 

DIMENSION 

SUBROUTINE 

NO 

RELERR 

RUN 

001 

100 

ERRORZ 

17 

XINC 

RUN 

001 

100 

ERRORZ 

17 

XINC 

RUN 

001 

100 

RUNGEK 

36 

XINC 

RUN 

001 


STEP 

47 

A 1 

RUN 

101 


ERRORZ 

17 

A 1 

RUN 

101 


RUNGEK 

36 

A 1 

RUN 

101 


STEP 

47 

A2 

RUN 

102 


ERRORZ 

17 

A2 

RUN 

102 


RUNGEK 

36 

A2 

RUN 

102 


STEP 

47 

DELI 

RUN 

103 


RUNGEK 

36 

DELI 

RUN 

103 


STEP 

47 

DELSTO 

RUN 

104 


RUNGEK 

36 


DELSTO 

RUN 

104 

STEP 

47 

£2 

RUN 

105 

ERRORZ 

17 

E2 

RUN 

105 

RUNGEK 

36 

E2 

RUN 

105 

STEP 

47 

H2 

RUN 

106 

COAST 

6 

H2 

RUN 

106 

RUNGEK 

36 

H2 

RUN 

106 

STEP 

47 

I 

RUN 

107 

COAST 

6 

I 

RUN 

107 

RUNGEK 

36 

I 

RUN 

107 

STEP 

47 

NSTEP1 

RUN 

108 

RUNGEK 

36 

NSTEP1 

RUN 

108 

STEP 

47 

NSTEP2 

RUN 

109 

RUNGEK 

36 

NSTEP2 

RUN 

109 

STEP 

47 

NSTEP3 

RUN 

110 

RUNGEK 

36 

NSTEP3 

RUN 

1 10 

STEP 

47 

RATIO 

RUN 

111 

RUNGEK 

36 

RATIO 

RUN 

111 

STEP 

47 

STEPGO 

RUN 

112 

ERRORZ 

17 

STEPNO 

RUN 

112 

OUT PT 1 

30 

STEPGO 

RUN 

112 

OUT PT2 

31 

STEPGO 

RUN 

1 12 

RUNGEK 

36 

STEPGO 

RUN 

112 

STEP 

47 

STEPNO 

RUN 

113 

OUT PT2 

31 

STEPNO 

RUN 

113 

RUNGEK 

36 

STEPNO 

RUN 

113 

STEP 

47 

SCRIBE 

RUN 

114 

RUNGEK 

36 

SCRIBE 

RUN 

114 

STEP 

47 

NSTAG1 

RUN 

115 

OUT PT 1 

30 

NSTAG1 

RUN 

115 

RUNGEK 

36 

NSTAG1 

RUN 

115 

STAGE 

44 

NS T AG 1 

RUN 

115 

STEP 

47 


VARIABLE 

SUB 

BLOCK 

LOCATION 

COMMON ATABLE 

DIMENSION 

SUBROUTINE 

NO 

VEL 

C ME 

0001 


MAINB 

25 

FIRST 

CME 

0001 

28 

RENDER 

35 

VFL 

CME 

0001 


TUDES 

50 

OBLATN 

CME 

0002 


ATMOS 

2 

OBLATN 

CME 

0002 


E0UAT2 

16 

OBLATN 

CME 

0002 


MAINB 

25 

APR 

CME 

0004 


ATMOS 

2 

A 

CME 

0004 


MAINB 

25 

A 

CME 

0004 


TUDES 

50 

ALT 

CME 

0005 


MAINB 

25 

ALT 

CME 

0005 


TUDES 

50 

XSTORO 

CME 

0006 

4 

MAINB 

25 

XS TORO 

CME 

0006 

4 

0RBEL2 

29 

TSPM 

CME 

0010 


MAINA 

24 

TS PM 

CME 

0010 


MAINB 

25 

TSPM 

CME 

0010 


START 

45 

WS TORE 

CME 

0011 


MAINB 

25 



HSTORE 

CME 

0012 


MAINB 

25 

RADIUS 

CME 

0013 


MAINB 

25 

RADIUS 

CME 

0013 


TUDES 

50 

FUELT 

CME 

0014 


MAINB 

25 

FUELT 

CME 

0014 


START 

45 

HARDBT 

CME 

0015 


MAINB 

25 

HARDBT 

CME 

0015 


START 

45 

DELTB 

CME 

0016 


BOOST 

4 

DELTB 

CME 

0016 


MAINA 

24 

DELTB 

CME 

0016 


MAINB 

25 

TBO 

CME 

0017 


MAINB' 

25 

TBLAST 

CME 

0018 


MAINA 

24 

TBLAST 

CME 

0018 


MAINB 

25 

TMINST 

CME 

0019 


BOOST 

4 

TMINST 

CME 

0019 


MAINA 

24 

TMINST 

CME 

0019 


MAINB 

25 

NKICK 

CME 

0020 


MAINB 

25 

NK ICK 

CME 

0020 


OUT PT2 

31 

NKICKS 

CME 

0021 


MAINA 

24 

NKICKS 

CME 

0021 


MAINB 

25 

UN 

CME 

0022 

3 

THRUST 

49 

UN 

CME 

0022 

3 

TUDES 

50 

ANGLEB 

CME 

0025 

4 

MAINB 

25 

ANGLEB 

CME 

0025 

4 

TUDES 

50 

DELTK 

CME 

0199 


BOOST 

4 

DEL TK 

CME 

0199 


MAIN 

23 

DELTK 

CME 

0199 


MAINA 

24 

SECOND 

CME 

0199 

2 

RENDER 

35 

IKICK 

CME 

0200 


DATAB 

11 

IKICK 

CME 

0200 


LOAD 

22 

IKICK 

CME 

0200 


MAINA 

24 

IKICK 

CME 

0200 


MAINB 

25 

IKICK 

CME 

0200 


RENDER 

35 

IKICK 

CME 

0200 


START 

45 

APT 

CME 

0201 

3, 100 

MAINA 

24 

KPT 

CME 

0201 

3, 100 

MAINA 

24 

THIRD 

CME 

0201 

300 

RENDER 

35 

VAR 

CME 

0501 


MAINA 

24 

VAR 

CME 

0501 


OUT PT 2 

31 

FOURTH 

CME 

SUB 

0501 

7500 

COMMON CSTAR 

RENDER 

35 

VARIABLE 

BLOCK 

LOCATION 

DIMENSION 

SUBROUTINE 

NO 

X PR I M 

CMA 

0001 

100,2 

MAIN 

23 

X PR I M 

CMA 

0001 

100,2 

MAINB 

25 

X PR I M 

CMA 

0001 

100,2 

RUNGEK 

36 

XPR I M 

CMA 

0001 

100,2 

STAGE 

44 

XPRIM 

CMA 

0001 

100,2 

STEP 

47 

XPR IM 

CMA 

0001 

100,2 

TUDES 

50 

RMASS 

CMA 

0003 


TUDES 

50 

TIME 

CMA 

0017 


MAINB 

25 


54 



TIME 

CMA 

0017 

SETUP 

40 

RMASS 

CMA 

0201 

STAGE 

44 

WEIGHT 

CMA 

0203 

STAGE 

44 

RMASS 

CMA 

0401 

COAST 

6 

RMASS 

CMA 

0401 

E0UAT1 

15 

X 

CMA 

0401 100 

E0UAT2 

16 

RMASS 

CMA 

0401 

ERRORZ 

17 

RMASS 

CMA 

0401 

FINAL 

18 

X 

CMA 

0401 100 

MAI NB 

25 

X 

CMA 

0401 

0RBEL2 

29 

RMASS 

CMA 

0401 

OUT PT 1 

30 

HEAT 

CMA 

0401 

OUT PT2 

31 

X 

CMA 

0401 100 

RUNGEK 

36 

X 

CMA 

0401 100 

SCOMP 

39 

X 

CMA 

0401 100 

STAGE 

44 

X 

CMA 

0401 

STEP 

47 

WEIGHT 

CMA 

0402 

AERO 

1 

R 

CMA 

0402 

COAST 

6 

R 

CMA 

0402 

CONEVL 

8 

R 

CMA 

0402 

E0UAT1 

15 

R 

CMA 

0402 

ERRORZ 

17 

WEIGHT 

CMA 

0402 

ERRORZ 

17 

R 

CMA 

0402 

FINAL 

18 

R 

CMA 

0402 

MAIN 

23 

R 

CMA 

0402 

ORBEL 

28 

R 

CMA 

0402 

0UTPT1 

30 

WEIGHT 

CMA 

0402 

OUT PT 2 

31 

R 

CMA 

0402 

PERTB 

33 

R 

CMA 

0402 

SCOMP 

39 

R 

CMA 

0402 

SSTAGE 

43 

R 

CMA 

0402 

STAGE 

44 

WEIGHT 

CMA 

0402 

THRUST 

49 

PHI 

CMA 

0403 

EQUAT1 

15 

PHI 

CMA 

0403 

ORBEL 

28 

PHI 

CMA 

0403 

OUT PT 1 

30 

U 

CMA 

0404 

COAST 

6 

U 

CMA 

0404 

CONE VL 

8 

U 

CMA 

0404 

E0UAT1 

15 

U 

CMA 

0404 

FINAL 

18 

U 

CMA 

0404 

ORBEL 

28 

U 

CMA 

0404 

OUT PT 1 

30 

U 

CMA 

0404 

SCOMP 

39 

IJ 

CMA 

0404 

SSTAGE 

43 

U 

CMA 

0404 

STAGE 

44 

OMEGA 

CMA 

0405 

COAST 

6 

OMEGA 

CMA 

0405 

CONEVL 

8 

OMEGA 

CMA 

0405 

E0UAT1 

15 

OMEGA 

CMA 

0405 

FINAL 

18 

OMEGA 

CMA 

0405 

ORBEL 

28 

OMEGA 

CMA 

0405 

OUT PT 1 

30 

OMEGA 

CMA 

0405 

SCOMP 

39 

OMEGA 

CMA 

0405 

SSTAGE 

43 

OMEGA 

CMA 

0405 

STAGE 

44 

ZLAM1 

CMA 

0406 

COAST 

6 

Z L AMI 

CMA 

0406 

CONEVL 

8 

ZLAM1 

CMA 

0406 

E0UAT1 

15 

Z L AMI 

CMA 

0406 

ERRORZ 

17 

ZLAMI 

CMA 

0406 

FINAL 

18 

ZLAMI 

CMA 

0406 

OUT PT 1 

30 

ZLAMI 

CMA 

0406 

SCOMP 

39 



ZL AMI 

CMA 

0406 


SSTAGE 

43 

ZLAM2 

CMA 

0407 


COAST 

6 

ZLAM2 

CMA 

0407 


CONE VL 

8 

ZLAM2 

CMA 

0407 


E0UAT1 

15 

ZLAM2 

CMA 

0407 


ERRORZ 

17 

ZLAM2 

CMA 

0407 


FINAL 

18 

ZLAM2 

CMA 

0407 


OUT PT 1 

30 

ZLAM2 

CMA 

0407 


SCOMP 

39 

ZLAM2 

CMA 

0407 


SSTAGE 

43 

ZLAM3 

CMA 

0408 


COAST 

6 

ZLAM3 

CMA 

0408 


CONEV.L 

8 

ZLAM3 

CMA 

0408 


E0UAT1 

15 

ZLAM3 

CMA 

0408 


ERRORZ 

17 

ZLAM3 

CMA 

0408 


FINAL 

18 

ZLAM3 

CMA 

0408 


SCOMP 

39 

ZLAM3 

CMA 

0408 


SSTAGE 

43 

TIME 

CMA 

0409 


COAST 

6 

TIME 

CMA 

0409 


E0UAT1 

15 

TIME 

CMA 

0409 


ORBEL 

28 

TIME 

CMA 

0409 


0RBEL2 

29 

TIME 

CMA 

0409 


0UTPT1 

30 

TIME 

CMA 

0409 


0UTPT2 

31 

TIME 

CMA 

0409 


STEP 

47 

DRMASS 

CMA 

0501 


EQUAT1 

15 

XDOT 

CMA 

0501 

100 

E0UAT2 

16 

XDOT 

CMA 

0501 

100 

RUNGEK 

36 

XDOT 

CMA 

0501 

100 

STEP 

47 

DR 

CMA 

0502 


E0UAT1 

15 

DPHI 

CMA 

0503 


E0UAT1 

15 

DU 

CMA 

0504 


E0UAT1 

15 

DOMEGA 

CMA 

0505 


E0UAT1 

15 

DZLAM1 

CMA 

0506 


E0UAT1 

15 

DZLAM1 

CMA 

0506 


OUT PT 1 

30 

DZLAM2 

CMA 

0507 


EQUAT1 

15 

DZLAM2 

CMA 

0507 


OUT PT 1 

30 

DZLAM3 

CMA 

0508 


E0UAT1 

15 

DT IME 

CMA 

0509 


DATAB 

11 

XINPT 

CMA 

0601 

100 

MAIN 

23 

XINPT 

CMA 

0601 

100 

PERDAT 

32 

XINPT 

CMA 

0601 

100 

PERTB 

33 

XINPT 

CMA 

0601 

100 

START 

45 

R 

CMA 

0602 


START 

45 

U 

CMA 

0604 


START 

45 

OMEGA 

CMA 

0605 


START 

45 

Z L AMI 

CMA 

0606 


START 

45 

ZLAM2 

CMA 

0607 


START 

45 

ZLAM3 

CMA 

0608 


START 

45 

TIME 

CMA 

0609 


DAMODE 

10 

DELT 

CMA 

0701 


COAST 

6 

DELT 

CMA 

0701 


DAMODE 

10 

DELT 

CMA 

0701 


ERRORZ 

17 

DELT 

CMA 

0701 


MAINB 

25 

DELT 

CMA 

0701 


RUNGEK 

36 

DELT 

CMA 

0701 


SETUP 

40 

DELT 

CMA 

0701 


STEP 

47 

DELMAX 

CMA 

0702 


DAMODE 

10 

DELMAX 

CMA 

0702 


MAINA 

24 

DELMAX 

CMA 

0702 


RUNGEK 

36 

DELMAX 

CMA 

0702 


SETUP 

40 

DELMAX 

CMA 

0702 


STEP 

47 


56 


TMIN 

CMA 

0703 

DAMQDE 

10 

TMtN 

CMA 

0703 

MAINA 

24 

TMIN 

CMA 

0703 

RUNGEK 

36 

tm r n 

CMA 

0703 

SETUP 

40 

TMIN 

CMA 

0703 

STEP 

47 

STEPS 

CMA 

0704 

DAMODE 

10 

STEPS 

CMA 

0704 

MAINA 

24 

STEPS 

CMA 

0704 

RUNGEK 

36 

STEPS 

CMA 

0704 

SETUP 

40 

STEPS 

CMA 

0704 

STEP 

47 

STEPMX 

CMA 

0705 

DATAR 

11 

STEPMX 

CMA 

0705 

RUNGEK 

36 

STEPMX 

CMA 

0705 

STEP 

47 

FRLIMT 

CMA 

0706 

DATAB 

11 

ERL IMT 

CMA 

0706 

RUNGEK 

36 

ERLIMT 

CMA 

0706 

STEP 

47 

ERLOG 

CMA 

0707 

MAIN 

23 

FRLOG 

CMA 

0707 

RUNGEK 

36 

ERLOG 

CMA 

0707 

STEP 

47 

NS T 

CMA 

0708 

DATAB 

11 

NST 

CMA 

0708 

MAIN 

23 

NS T 

CMA 

0708 

RUNGEK 

36 

NST 

CMA 

0708 

STEP 

47 

NEO 

CMA 

0709 

DATAB 

11 

NEO 

CMA 

0709 

ERRORZ 

17 

NEO 

CMA 

0709 

MAIN 

23 

NEO 

CMA 

0709 

RUNGEK 

36 

NEO 

CMA 

0709 

STAGE 

44 

NEO 

CMA 

0709 

START 

45 

NEO 

CMA 

0709 

STEP 

47 

NST AGE 

CMA 

0710 

COAST 

6 

NST AGE 

CMA 

0710 

DAMODE 

10 

NST AGE 

CMA 

0710 

EOUAT 1 

15 

NSTAGE 

CMA 

0710 

MAIN 

23 

NST AGE 

CMA 

0710 

MAINB 

25 

NSTAGE 

CMA 

0710 

OUT P T 1 

30 

NSTAGE 

CMA 

0710 

RUNGEK 

36 

NSTAGE 

CMA 

0710 

SETUP 

40 

NSTAGE 

CMA 

0710 

S I MPRO 

41 

NSTAGE 

CMA 

0710 

STAGE 

44 

NSTAGE 

CMA 

0710 

START 

45 

NSTAGE 

CMA 

0710 

STEP 

47 

LAST 

CMA 

0711 

DATAB 

1 1 

LAST 

CMA 

0711 

MAINA 

24 

LAST 

CMA 

0711 

MAINB 

25 

LAST 

CMA 

0711 

RUNGEK 

36 

LAST 

CMA 

0711 

START 

45 

LAST 

CMA 

0711 

STEP 

47 

MOOS 

CMA 

0712 

DAMODE 

10 

MODS 

CMA 

0712 

RUNGEK 

36 

MODS 

CMA 

0712 

SETUP 

40 

MODS 

CMA 

0712 

STEP 

47 

EREF 

CMA 

0713 

DATAB 

1 1 

EREF 

CMA 

0713 

MAIN 

23 

MODOUT 

CMA 

0714 

COAST 

6 

MODOUT 

CMA 

0714 

DAMODE 

10 

MODOUT 

CMA 

0714 

MAINA 

24 

MODOUT 

CMA 

0714 

RUNGEK 

36 

MODOUT 

CMA 

0714 

SETUP 

40 

MODOUT 

CMA 

0714 

STEP 

47 


FM 

CMA 

0715 

FM 

CM A 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

GM 

CMA 

0715 

FM 

CMA 

0715 

GM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

FM 

CMA 

0715 

GM 

CMA 

0715 

FM 

CMA 

0715 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

G 

CMA 

0716 

CONM 

CMA 

0717 

CONM 

CMA 

0717 

CONM 

CMA 

0717 

CONN 

CMA 

0718 

CONN 

CMA 

0718 

CPA 

CMA 

0719 

CPA 

CMA 

0719 

WTO 

CMA 

0720 

WTO 

CMA 

0720 

HARDB 

CMA 

0721 

HARDB 

CMA 

0721 

HARDB 

CMA 

072 1 

EXITS 

CMA 

0727 

EXITS 

CMA 

0727 

WT FLOW 

CMA 

0733 

WTFLOW 

CMA 

0 7 33 

W T FLOW 

CMA 

0733 

WTFLOW 

CMA 

0733 

FORCES 

CMA 

0739 

FORCES 

CMA 

0739 

FORCES 

CMA 

0739 

T BOO ST 

CMA 

0745 

TBOOST 
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11 

ERROR 

CMB 

1042 

2 

MAIN 

23 

TOL 

CMB 

1044 

5,2 

DATAB 

11 

TOL 

CMB 

1044 

5,2 

MAIN 

23 

ERRMXK 

CMB 

1054 


COAST 

6 

ERRMXK 

CMB 

1054 


DATAB 

11 

ERRMXK 

CMB 

1054 


MAIN 

23 

PERB 

CMB 

1055 

2 

DATAB 

11 
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2 


PERB 

CMB 

1055 

NDUMP 

CMB 

1057 

NDUMP 

CMB 

1057 

DEL TKT 

CMB 

1058 

DELTKT 

CMB 

1058 

DEL TKt 

CMB 

1058 

TKICK 

CMB 

1059 

TKICK 

CMB 

1059 

TKICK 

CMB 

1059 

TKICK 

CMB 

1059 

ITERPD 

CMB 

1060 

ITERPD 

CMB 

1060 

ITERPD 

CMB 

1060 

I MODE 

CMB 

1061 

I MODE 

CMB 

1061 

I MODE 

CMB 

1061 

IMODE 

CMB 

1061 

I MODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

IMODE 

CMB 

1061 

ROA 

CMB 

1062 

ROA 

CMB 

1062 

ROA 

CMB 

1062 

ROA 

CMB 

1062 

JKICK 

CMB 

1063 

JKICK 

CMB 

1063 

JKICK 

CMB 

1063 

JKICK 

CMB 

1063 

MASH 

CMB 

1064 

MASH 

CMB 

1064 

MASH 

CMB 

1064 

MASH 

CMB 

1064 

MASH 

CMB 

1064 

MASH 

CMB 

1064 

TBURN 

CMB 

1065 

TBURN 

CMB 

1065 

TBURN 

CMB 

1065 

IKCKST 

CMB 

1066 

IKCKST 

CMB 

1066 

ITERAD 

CMB 

1067 

ITERAD 

CMB 

1067 

ITER 

CMB 

1068 

ITER 

CMB 

1068 

ITERP 

CMB 

1069 

ITERP 

CMB 

1069 

NOPTA 

CMB 

1070 

NOPTA 

CMB 

1070 

NOPTA 

CMB 

1070 

NOPTA 

CMB 

1070 

FIXDTK 

CMB 

1071 

FIXDTK 

CMB 

1071 

FIXDTK 

CMB 

1071 

FIXDTK 

CMB 

1071 


MAINB 

25 

DATAB 

11 

MAIN 

23 

DATAB 

11 

MAIN 

23 

MAINA 

24 

MAINA 

24 

DUTPT1 

30 

START 

45 

XOLQAD 

51 

PERDAT 

32 

START 

45 

XOLOAD 

51 

DATAB 

11 

E0UAT1 

15 

ERRORZ 

17 

MAIN 

23 

MAINA 

24 

MAINB 

25 

OUT PT 1 

30 

OUT PT 2 

31 

SETUP 

40 

STAGE 

44 

START 

45 

STEP 

47 

THRUST 

49 

TUDES 

50 

BOOST 

4 

DATAB 

11 

OUT PT2 

31 

START 

45 

DATAB 

11 

MAIN 

23 

MAINA 

24 

MAINB 

25 

COAST 

6 

MAIN 

23 

MAINA 

24 

PERDAT 

32 

START 

45 

STEP 

47 

BOOST 

4 

MAINA 

24 

START 

45 

MAINB 

25 

RENDER 

35 

START 

45 

XOLOAD 

51 

START 

45 

XOLOAD 

51 

MAIN 

23 

XOLOAD 

51 

COAST 

6 

FINAL 

18 

SCOMP 

39 

XOLOAD 

51 

MAIN 

23 

OUT PT2 

31 

START 

45 

XOLOAD 

51 



1 BURN 

CMB 

1072 


LOAD 

22 

IBURN 

CMB 

1072 


MAINA 

24 

I BURN 

CMB 

1072 


STEP 

47 

NVAR 

CMB 

1073 


DATAB 

11 

NVAR 

CMB 

1073 


MAINA 

24 

NVAR 

CMB 

1073 


MAINB 

25 

NVAR 

CMB 

1073 


OUT PT 2 

31 

NVAR 

CMB 

1073 


RENDER 

35 

S 

CMB 

1074 

6,2 

COAST 

6 

s 

CMB 

1074 

6,2 

FINAL 

18 

s 

CMB 

1074 

6,2 

SADDA 

37 

s 

CMB 

10 74 

6,2 

S ADDS 

38 

s 

CMB 

1074 

6,2 

SCOMP 

39 

s 

CMB 

1074 

6,2 

STAGE 

44 

s 

CMB 

1074 

6,2 

START 

45 

I DATA 

CMB 

1086 

6,5 

COAST 

6 

IDATA 

CMB 

1086 

6,5 

FINAL 

18 

IDATA 

CMB 

1086 

6,5 

SCOMP 

39 

IDATA 

CMB 

1086 

6,5 

START 

45 

IDATA 

CMB 

1086 

6,5 

XOLOAD 

51 

NTB 

CMB 

1116 

4 

START 

45 

NTB 

CMB 

1116 

4 

XOLOAD 

51 

ITK 

CMB 

1120 

3 

BOOST 

4 

ITK 

CMB 

1120 

3 

MAINA 

24 

ITB 

CMB 

1123 

3 

BOOST 

4 

ITB 

CMB 

1123 

3 

MAINA 

24 

APTMAX 

CMB 

1126 

3 

BOOST 

4 

APTMAX 

CMB 

1126 

3 

MAINA 

24 

JCOST 

CMB 

1129 


COAST 

6 

JCOST 

CMB 

1129 


MAINB 

25 

JCOST 

CMB 

1129 


STAGE 

44 

JCOST 

CMB 

1129 


START 

45 

JCOAST 

CMB 

1130 

6 

COAST 

6 

JCOAST 

CMB 

1130 

6 

start 

45 

JCOAST 

CMB 

1130 

6 

XOLOAD 

51 

JFINAL 

CMB 

1136 

6 

FINAL 

18 

JFINAL 

CMB 

1136 

6 

SCOMP 

39 

JFINAL 

CMB 

1136 

6 

XOLOAD 

51 

PAR 

CMB 

1142 

6,2 

BOOST 

4 

PAR 

CMB 

1142 

6,2 

START 

45 

V 

CMB 

1154 

6 

BOOST 

4 

V 

CMB 

1154 

6 

LOAD 

22 

altb 

CMB 

1154 


OUT PT 2 

31 

V 

CMB 

1154 

6 

START 

45 

ROOT 

CMB 

1155 


0RBEL2 

29 

ROOT 

CMB 

1155 


OUT PT2 

31 

HORV 

CMB 

1156 


OUT PT 2 

31 

MODE 

CMB 

1160 

3 

DAMODE 

10 

MODE 

CMB 

1160 

3 

DATAB 

11 

DELMX 

CMB 

1163 

3 

DAMODE 

10 

DELMX 

CMB 

1163 

3 

DATAB 

11 

STEP 

CMB 

1166 

3 

DAMODE 

10 

STEP 

CMB 

1166 

3 

DATAB 

11 

TMINI 

CMB 

1169 

3 

DAMODE 

10 

TMIN1 

CMB 

1169 

3 

DATAB 

11 

MODEB 

CMB 

1172 

2 

DATAB 

11 

MODEB 

CMB 

1172 

2 

SETUP 

40 

DELMXB 

CMB 

1174 

2 

DATAB 

11 

DELMXB 

CMB 

1174 

2 

SETUP 

40 

STEPS 

CMB 

1176 

2 

DATAB 

11 
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STEPB 

C MB 

1176 

2 

SETUP 

40 

TMINB 

CMB 

1178 

2 

DATAB 

11 

TMINB 

CMB 

1178 

2 

SETUP 

40 

MOOEC 

CMB 

1180 


DATAB 

11 

MODEC 

CMB 

1180 


MAINA 

24 

MODEC 

CMB 

1180 


OUT PT2 

31 

NPRINT 

CMB 

1181 


DAMODE 

10 

NPR INT 

CMB 

1181 


DATAB 

1 1 

K 

CMB 

1182 


DAMODE 

10 

K 

CMB 

1182 


SETUP 

40 

K 

CMB 

1182 


STEP 

47 

NOUT 

CMB 

1183 

6,3 

PERDAT 

32 

NOUT 

CMB 

1183 

6,3 

STEP 

47 

ICC 

CMB 

1201 

20 

DATAB 

11 

ICC 

CMB 

1201 

20 

QUAD 

34 

NSETS 

CMB 

1221 

20 

COEFNT 

7 

NSETS 

CMB 

1221 

20 

PERDAT 

32 

NSAVE 

CMB 

1241 

20 

COEFNT 

7 

NSAVE 

CMB 

1241 

20 

DATAB 

11 

V 

CMB 

1301 

100,2 

COEFNT 

7 

COEFN 

CMB 

1501 

500 

COEFNT 

7 

COEFN 

CMB 

1501 

500 

QUAD 

34 
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APPENDIX F 

TABLE FOR INPUT ROUTINE 


STABLE, 


813 = A 


880 =ANG 


809 

814 =B 


930.=CLEAR 


928 

718 =CONN 


861 =DELT AV 


803 

174 =DELMXB 


863 =DROP 


931 

713 =EREF 


706 =ERL I MT 


1041 

727 =EX I TB 


727 =EXI TS 


837 

739 =FORCES 


1036 =F YD 

1 

716 


1201. = ICC ,1061. = 1 MODE ,1060 

787 =LONG ,1160. = MO LIE ,1172 
1057 . =NDUMP , 879 . =NF I NAL , 819 
1189. = NPRNTC, 1183.=NPRNTI , 1241 
1055 =PERB , 849 =PROP , 881 
862 =RESERV , 799 =REVOLV, 904 
1176. =STEPB , 705. =STEPMX , 825 
1059 = TK I CK , 804 =TKTIME,1169 
796 =TSTART ,1 40 1 =VARDEP,1301 
720 =WTO , 884 =ZLAM4 / 


= AREA , 798 =AST ART , 788 =AZMUTH 
, =CMAX ,1501 =COE E N , 717 =CONM 
=DELTB ,1058 =DFLTK ,1163 =DELMX 
=DELTST , 938 =DX , 892 =ENERGY 
=ERR ,1054 =ERRMXK , 1042 =ERROR 
= FLOW , 733 =FLGWB , 715 =FM 

=G , 843 =HARD , 721 =HAROB 

= I TERP D, 75 3 . =L AS T , 786 =L AT 
=MODEB ,1180. =MDDEC , 926.=NDAMP . 
=NOPT ,1181. =N PRINT, 1195. =NPRNTB 
= NSAVE , 1221. =NSET S , 815 = 0 B L A T M • 
= PSI , 882 =PS I D , 92 7.=RERIJN 
=R0 ,1062 =R0 A , 1166.=STEP . 

= TB , 745 =TBOOST , 831 =THRUST , 
= T M I N ,1178 =TM I NB ,1044 =TOL , 

= VAR I NO , 797 =VST ART , 855 =WPMAX , 
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APPENDIX G 


SAMPLE PROBLEM 


AREA=855 
ICC=1 
NS AVE=L 
NS FT S= 1 0 

VARIND=0. 0.07. 0. 15, 0.30.0. 50.0-57,0.65.0.88 
3.00.3. 50, 4.00, 5. 00, 6. 00. 7. 00. 8. 00. Si 
V ARDEP= 1.15* 1.15. 1. 15.0.80,0.45,0.44,0.46,0. 
0.40,0.38.0.36, 0.34,0.32*0.31.0.30,$$ 

L AT=28. 3 
LO NG= 279 . 5 
AZ HUT H=90 
WT0=6.OOE+06 
EX ITS=7. 896443 LE*04/ 144 
RE RUN=1 
HOOEB-51, 51 
MQDEC=2 
PER 8= 0.6, 0.8 
T KT I HE= 1 5 
TB= 142 , 250. 500 

T HRl)ST= 8 . 66 4772 7E *06, 1.5E + 06.2. 56*05 
FLOW=THRUST /305 , THRUST! 2 I /42 8, T HR US T I 3 I 
PR0P=0. 03, 0.033. 0.12 
HARD 2 24 5000* 70000,35000 
N0PT=1. 1. I 
PS 1 = 40/57.3 
PS J0=-0.05/57.3 
T K ICK=B9 . 4 
I T ERPD=0 
HQ 0E=6 1 , 52 
NF INAL= l 

FY D= 121*60 76.1 15 5*A 
ENERGY=-FM/FYD/2 
ANG=0 

DELTAV=0. 4 14*25492.3 11 


,$$ REFERENCE AREA FDR DRAG 
.$$ DRAG COEFFICIENT LOCATION 
,$$ COEFFICIENT LOCATUN 

. $$ 

1.12,1. 17, 1.25, 1.50, 2. 3 0,2. 50.$$ 

70,0.90,0.92,0. 90 ,0.76,0.56,0.45, $$ 

,$$ LATITUDE 

,$$ LONGITUDE 

,$$ AZIMUTH HEADING 

,$$ INITIAL GROSS WEIGHT 

»$$ ENGINE EXIT AREA 

,$$ FLAG FOR CHECKING SPACING 

,$$ BOOSTER OUTPUT INSTRUCTION 

.$$ BOOSTER OUTPUT TYPE 

,$$ TABLE DELT SPACING 

,$$ VERTICAL RISE TIHE 

.$$ GUESS AT PHASE DURATIONS 

,$$ THRUSTS FOR THE PHASES 

,$$ FLOW FOR tHE PHASES 

.$$ STRUCTURE FACTORS 

.$$ FIXED HARDWARE WEIGHTS 

.$$ PHASE OPTIMIZATION FLAGS 

,$$ GUESS AT PSIO 

.$$ GUESS AT PS IDO 

.$$ GUESS AT KICK ANGLE 

.$$ KICK ANGLE IS OPTIMIZED 

,$$ UPPER PHASE OUTPUT FLAGS 

,$$ FINAL CONDITON TYPE FLAG 

.$$ FINAL RAD I US 

,$$ FINAL ENERGY 

.$$ FINAL FLIGHT PATH ANGLE 

•$$ DELTAV TO ESCAPE 


COEFFICIENTS 1, 41 
0 

-3.08333337 
0.65000000 
1 1.8498634 
2.00000000 
—0. 4000002 IE— 01 
6.00000000 


1.14999998 

1.66666684 

-0.47401163 

-4.99994445 

1.59999987 

-0 

0.37999982 


0. 3464741 8E -06 
0.50000000 
1.72756687 
1.25000000 
-0.75999999 

4.00000000 
-0. 99 Q 99458E-02 


-0 

1.26785628 
-0.447 1 167 1 
2.00003006 
0.11999999 
0.43999997 
-0.1B626451E-O8 


0.15000000 
-2.94523606 
l. 11999999 
-1.14666656 

3.00000000 
-0. 19999996E- 

80.0000000 


1.57499994 
2.61904451 
- 6.09991 992 
0.21333338 
0.52000010 
-0.18626451S- 09 


0 


1.1500000 . 0. 346 4742 E- 06 ,-0 


0. 1500000 
O. 5000000 
O. 6500000 


• 1.5749999 
, 1.2678563 
.-0.4740116 


3.0833334 

• 1.6666668 

• $$ 

2.945236k 

. 2.6190445 

.$$ 

1.7275669 

,-0.4471167 

.$$ 


1 . 1200000 
1.2500000 
2.0000000 

3.0000000 

4.0000000 


.-6. 0999199 
. 2 .000000 1 
. 1.5999999 
. 0.5200001 
. 0.4400000 


• 11.849863 .-4.9999444 .$$ 
,-1.1466666 . 0.2133334 .$$ 
.-0.7600000 . 0.1200000 .$$ 
.-0.4000002E-01.-0 .$$ 
,- 0. 2000000E -01 »— 0. 1862645E— 08. $$ 


6.0000000 . 0.3799996 0. 9999946E-02 ,-0. 1 862645E -08 . $$ 

80.000000 • 


A l 

THRUST ONE 

THRUST FOUR 


FLOW ONE 

FLOW FOUR 

HARD ONE 

HARD FO JR 

PROP ONE 

PROP 

FOUR 

A 2 

THRUST TWO 

THRUST FIVE 


FLOW TWO 

FLOW FIVE 

HARO TWO 

HARD FIVE 

PRO-* TWO 

PROP 

FI VE 

A3 

THRUST THREE 

THRUST SIX 


FLOW THREE 

FLOW SIX 

HARD THREE 

HARD SIX 

PROP THREE 

PROP 

SI X 

Ul 

T IME 

WE 1GHT 


PSI 

ALTITUOE 

ECCENTRICITY 

INR. GAMMA 

0 ER I 3D 

I NR. 

VELOZI 

U? 

FLOW 

ACCEL LERA TION 

PSIO 

PERIGEE ALT 

TIME OF PERIGE 

OMEGA 

TRAVEL ANGLE 

RAO. 

velo;: 

U3 

STEPNO 

CAPPA 


KICK ANGLE 

RADIUS 

TIME PER DEP 

SEM LAT REC 

TRUE ANOMALY 

NOR. 

v=Loz: 

U4 

BURN TIME ONE 

BURN TIME FOUR 

WP UNfc 

WP FOUR 

HARD ONE 

HARD FOUR 

M F ONE 

M F 

= OUR 

U5 

BURN TIME TWO 

BURN TIME F] 

i VE 

WP TWO 

WP FIVE 

HARD TWO 

HARD FIVE 

M F TWO 

M F 

FIVE 

U6 

BURN TIME THRE 

BURN TIME SIX 

WP THREE 

WP SIX 

HARD THREE 

HARD SIX 

M F THREE 

M F 

SIX 

A1 

8664772.6 

0 


28409.090 

0 

245300.00 

0 

0. 3000000E-01 

0 


A2 

1500000.0 

0 


3504.6729 

0 

70000.000 

0 

0 • 3 300000E -01 

0 


A3 

250000.00 

0 


294. 11 765 

0 

35030.000 

0 

0.1200000 

0 


B1 

T IME 

WEIGHT 


RAD. Vt LOCI TY 

HOR. VELOCITY 

ALT ITUDE 

INR. VELOCITY 

INR. GAMMA 

: LOW 


B2 

STEPGO*ST EPNO 

RADIUS 


ORAG 

PRESSURE 

HEAT INTEGRAL 

MACH NUMBER 

0 

THRUST 

B1 

0 

6000000.0 


0 

1342.5209 

-0.2500300 

1342.5289 

0 

28409. 030 

B2 

0 0 

0.2090990E 

08 

0 

2124.1934 

0 

0 

0 

7499941 . Z 

B1 

15 .000000 

5573863.6 


144.40608 

1342.1591 

1023.0000 

1349.9053 

6.1409652 

28409. 090 

B2 

4 0 

0.2091 092E 

08 

0 

0 

11523.263 

0 

23.286603 

7540853. 9 


69 


BL 

B? 

T IME 

STEP GO +S T 6 PNQ 

HEIGHT 

RADIUS 

RAO. VELOCITY 
DRAG 

HOR. VELOCITY 
PRESSURE 

ALT ITUOE 
HEAT INTEGRAL 

INI • VELOCITY 
MACH NUMBER 

INR. GAMMA 
0 

= LOW 
THRUST 

KICK ANGLE = 

89. 

299999 







B1 

02 

15.000000 

0 

0 

5573863.6 
0.209 1092E 08 

144.40224 

22896.708 

1344.3592 

2049.589S 

1022.7500 

11523.263 

1352.0924 

0.1274009 

6.1308300 

23.286762 

28409. 090 
7540854. 0 

B I 
B2 

126.72000 

37 

9 

2400000. 1 
0. 21 02999E 08 

1961.1498 

50416.089 

6150.3975 

9.9122334 

120084.75 
0.93 3321 7 E 08 

6455.5016 

4.9994240 

17.685689 

173.42412 

28409. 090 
8659337. 0 

B1 

B2 

128.48000 

38 

9 

2350000. 1 
0.2103346E 08 

1985.1508 

45830.513 

6339.8041 

8.5945016 

123557.00 
0.9487445E 08 

6643.3380 
5. 140392 1 

17.386640 

158.96856 

28409. 090 
8660059. S 

B I 
B2 

130.24000 

39 

9 

2300000. 1 
0. 2103698E OS 

2009.3107 

41648.050 

6534.0762 
7.4565 72 9 

127071.75 
0.9633811E 08 

6B 36. 0428 
5.2833019 

17.093322 

145.69618 

28409.090 

8660683.6 

B1 

B2 

132.00000 

40 

9 

2250000.1 
0.2104053E 08 

2033.6892 

37841.519 

6733.3775 

6.4733821 

130529.50 
0.9772675E 08 

7033.7944 

5.4286627 

16.805947 

133.54111 

28409.090 

8661222.7 

B 1 
B2 

133.76000 

41 

9 

2200000. i 
0.2104414E 08 

2058.3493 

34382.914 

6937.8853 

5.6231947 

1342 30.00 
0 . 9904409E 08 

7236.7849 

5.5770907 

16.524702 

122.43246 

28409. 090 
8661689.0 

B1 

B2 

135.52000 

42 

9 

2150000.1 
Q.21Q4778E 08 

2083.3582 

31241.105 

7147.7925 
4. 8867957 

137874.25 
0 ■ 10 02939E 09 

7445.2213 

5.7292897 

16.249753 

112.28555 

28409. 090 
8662092.9 

BI 

B2 

137.28000 

43 

9 

2100000. 1 
O.2105147E 08 

2108.7867 

28385.530 

7363.3087 

4.2476648 

141562.75 
0 . 10 14798E 09 

7659.3274 

5.8860735 

15.981246 

103.01480 

28409.090 
866244-3. 2 

81 

B2 

139.04000 

44 

9 

2050000. 1 
0. 2105520E 08 

2134.7105 
25824. 189 

7584.6611 

3.6914306 

145296.75 
0. 10 26051 E 09 

7879.3447 

6.0483548 

15.719310 

94.529479 

28409. 090 
8662 74 8.4 

B 1 
B2 

140.80000 

45 

9 

2000000. 1 
0.2105898E 08 

2161.2089 

23571.500 

7812.0997 

3.2058692 

149076.75 
0. 1036729E 09 

8105.5321 

6.2171630 

15.464057 
86. 741782 

28409. 090 
8663014. 5 

Bi 

02 

142.56000 

46 

9 

1950000.1 
0. 210628 IE 08 

2188.3676 

21500.807 

8045.8785 

2.7804829 

152903.50 
0. 1046858 E 09 

8338. 1721 
6.3936354 

15.215588 

79.563523 

28409. 090 
8663247.9 

BI 

82 

144.32000 

47 

9 

1900000. 1 
0.2106669E 08 

2216.2779 

19533.849 

8286. 305L 
2.4001935 

156779.00 
0. 10564536 09 

8577.5720 

6.5784715 

14.973992 

72.710023 

28409.090 
8663456. 4 

81 

B2 

146.08000 

46 

9 

1850000.1 
0.2107061E 08 

2245.0371 

17973.468 

8533.6914 
2. 0819939 

160704.50 
0 • 10 65572 E 09 

8824.0627 

6.7992596 

14.739348 

67.375303 

28409.090 
8663630. 9 

BI 

B2 

147.84000 

49 

9 

1800000. 1 
0.2107459E 08 

2274.7486 

16500.708 

8788.3810 

1.8027265 

164681.25 
0 • 10 74296E 09 

9078.0021 

7.0260655 

L4.511724 

62.309057 

28409. 090 
8663784.0 

Bi 

82 

149.60000 

50 

9 

1750000.1 
0.2107862E 08 

2305.5251 

15114.208 

9050.7531 

1.5580119 

168711.00 
0. 10 82626E 09 

9339.7847 
7. 2616420 

14.291184 

57.509351 

28409. 090 
8663918.2 

BI 

02 

151.36000 

51 

9 

1700000.1 
0.2108271E 08 

2337.4876 

13812.046 

9321. 22L8 
1.3439028 

172796.00 
0.1090563E 09 

9609.0400 

7.5039735 

14.077786 
52.9 72257 

28409.090 

8664035.6 

BI 

B2 

153.12000 

52 

9 

1650000. 1 
0.21 0868 5E 08 

2370.7667 

12659.563 

9600.2397 

1.1561005 

176938.50 
0.1098118E 09 

9888.6370 

7.7810810 

13.871583 

48.997455 

28409.090 

8664138.6 

bi 

B2 

154.88000 

53 

9 

1600000. 1 
0.2 L09105E 08 

2405.5023 

11687.021 

9888.2991 

0.9905260 

181140.75 
0.1105389E 09 

10 176.664 
8. 1230402 

13.672622 

45.751055 

28409. 090 
8664229.4 

BI 

B2 

156.64000 

54 

9 

1550000.1 
0. 2109532E 08 

2441.8477 

10730.371 

10185.945 
0. 8439999 

185405.25 
0.1112 39 OE 09 

10474. 545 
8.4834207 

13.480951 
42. 518939 

28409. 090 
8664309. 7 

Bi 

B2 

158 .40000 
55 

9 

1500000. 1 
0.2 109965E 08 

2479.9703 

9794.5067 

10493.780 

0.7148964 

189735.50 
0.11 1909 6E 09 

10782.841 

8.8638275 

13.29661 7 
39.317305 

28409.090 
8664380. 5 

BI 

B2 

160.16000 

56 

9 

1450000. 1 
0.211 0405E 08 

2520.0529 
8884. 39 50 

LOS 12. 458 
0.6016930 

194134.50 
0.112 5489E 09 

11 102.258 
9.2660542 

13.119667 

36.163150 

2 8409. 090 
8664442. 6 

81 

B2 

161.92000 

57 

9 

1400000. 1 
0. 21 10852E 08 

2562.2960 

8004.6801 

11142.745 
0. 5029601 

198605.75 
0.113 1549E 09 

11433.554 

9.6921358 

12.950148 

33.072766 

28409.090 
8664496. 7 

BI 

B2 

163.68000 

58 

9 

1350 000. 1 
0.211 1307E 08 

2606.9198 

7159.5969 

1 1 485.431 
0.4173103 

203153.50 
0 • 11 37262 E 09 

11777.570 

10.144398 

12.788111 

30.061431 

28409.090 

8664543.7 

BI 

B2 

165.44000 

59 

9 

1300000.1 
0.211177 OE 08 

2654.1683 

6353.2277 

11841.434 
0.343463 0 

207781.75 
0 • 1 1 426 1 4 E 09 

12135.245 

10.625481 

12.633610 

27.144481 

28409. 090 
8664584. 2 

Bi 

B2 

167.20000 

60 

9 

1250000. 1 
0 . 21 12241E 08 

2704.3119 
5589. 0754 

12211. 774 
0.2802176 

212495.75 
0 . 1 147594E 09 

L2 507. 627 
1L. 138444 

12.486703 

24.335619 

28409. 090 
8664618.9 

BI 

B2 

168.96000 

61 

9 

1200000.0 
0.2112722E 08 

2 757.6522 
4870.3175 

12597.598 

0.2264254 

217301.00 
0 • 1 1 52 195E 09 

12895.895 
1 1.686815 

12.347454 

21.647982 

28409.090 
8664648. 4 

BI 

B2 

168.96000 

61 

9 

1200000.0 
0.2112722E 08 

2757.6522 

0 

12597.598 

0 

217301.00 
0. 1152195E 09 

12895.895 

0 

12.347454 

21.647982 

28409.090 
8664648. 4 

KICK 

ANGLE = 89.400000 







BI 

B2 

15.000000 

0 

0 

5573863.6 
0.209 1092E 08 

144.40510 

22896.708 

1344.1072 

2049.5845 

1022.7500 

11523.263 

1351. 842 l 
0. 1274009 

6.1320913 

23.286762 

28409.090 
7540854. 0 

BL 

B2 

126.72000 

38 

8 

2400000. 1 
0. 210433 7E 08 

2455.5039 

26689.852 

5742.0590 

5.7926630 

133466.00 
0.7379589E 08 

6245.0573 

4.7196608 

23.153234 

90.322901 

28409. 090 
8661 596. 1 

BI 

B2 

128.48000 

39 

P 

2350000. 1 
0.2104773E 08 

2502.0815 

23608.686 

5921.0373 

4.8953549 

137328.50 
0.7456439E 08 

6427.9931 

4.8463988 

22.907697 

80.486032 

28409.090 

8662088.1 

Bi 

B2 

130 . 24000 
40 

8 

2300000.1 
0 . 210521 8E 08 

2549.4236 

20872.545 

6104.7896 

4.1352511 

142273.50 
0.7527338E 08 

6615.7401 

4.9770542 

22.665922 

71.704212 

28409. 090 
8662505.0 

bi 

B2 

132.00000 

41 

8 

2250000.1 
0.2105671E 08 

2597.6082 

18439.001 

6293.4732 

3.4894729 

146802.25 
0.75927 10E OB 

6808.4780 

5.1128572 

22.428209 

63.853572 

28409. 090 
8662859.0 


70 



fl i 
82 

133.76000 

*2 

8 

2200000. 1 
0. 2106L32E 

08 

2646.7190 

16266.456 

6487.2592 
2. 9385940 

151416.75 
0.75 52933E 08 

7306.4009 

5.2552059 

22.194833 
56. 808995 

28409. 090 
8663161.1 

81 

B2 

135.62000 

43 

8 

2150000. 1 
0.2106602E 

08 

2696.8456 
14249. 792 

6686.3340 

2.4582922 

156119.00 
0.77082B4E 08 

7209. 7183 
5.4013765 

21.966041 

50.204245 

28609.090 

8663424.5 

BL 

B2 

137.28000 

44 

8 

2100000. L 
0.2 107082E 

08 

2748.0829 

12673.906 

6890.8984 

2.0665721 

160939.75 
0.7759251E 08 

7418.6549 

5.5871594 

21. 742061 
45.157587 

28409. 090 
8663639.4 

81 

B2 

L39. 04000 
45 

a 

2050000. 1 
0.21O757OE 

08 

2800.5317 

11226.796 

7101. 1690 
1.7316470 

165792.25 
0.78365856 08 

7633.4514 

5.7783476 

21.523094 

40.472938 

28409.090 

8663823.0 

B 1 
B2 

140 .80000 
46 

8 

2000000. 1 
0. 2108067E 

08 

2854.3017 

9904.3752 

7317.3846 

1.4462331 

170768.00 
0 . 73 50378E 38 

7854.3719 

5.9751767 

21.309329 
36. 144135 

28409.090 

8663979.5 

B l 
82 

142.56000 

47 

8 

1950000. 1 
0.2 108575E 

08 

2909.5099 

8758.9854 

7539.8038 

1.2031971 

175839.25 
0.7390752E 08 

8381.7010 
6. 182961 i 

21. 100938 
32. 19 7921 

28409. 090 
8664112.7 

81 

02 

144. 32000 
48 

8 

1900000. 1 
0.2109092E 

08 

2966.2806 

7868.0894 

7768.7050 

0.9953663 

181009.50 
0 . 7928285E 08 

8315.7440 

6.4724038 

20.898073 
29. 188528 

28409.090 

8664226.7 

01 

82 

146 .08000 
49 

8 

1850 000. 1 
0.21096196 

08 

3024.7484 

7009.5377 

8004.3931 

0.8163745 

186280.75 
0.7963327E 08 

8556.8342 

6.7706204 

20.700879 

26.258575 

28409. 090 
8664324.9 

01 

02 

147.84000 

50 

8 

1800000. 1 
0.21 10156E 

08 

3005.0595 

6189.3086 

8247.2031 

0.6633697 

L9 16 56. 50 
0. 7995783E 08 

8805.3365 

7.1032056 

20. 509487 
23.429470 

28409. 090 
8664408.7 

81 

02 

149.60000 

51 

8 

1750000.1 
0.21 10705E 

08 

3147.3711 

5412.8564 

8497.4993 

0.5336444 

197140.00 
3.83255876 08 

9061 .6466 
7.4479151 

20.324021 

20.721414 

2 8409. 090 
8664479. 9 

81 

02 

151.36000 

52 

8 

1700 0 00. 1 
0. 2111264E 

08 

3211.8533 

4684.7665 

8755.6798 

0.4246129 

202735.50 
0.8352706E 08 

9326. 1960 
7.8148066 

20. 144594 
18.152135 

28409.090 

8664539.7 

01 

B2 

153.12000 

53 

8 

1650000. 1 
0.2111 836E 

OB 

3278.6899 

4009.0534 

9022.1794 
0. 3338618 

208446.25 
0. B377L386 08 

9599.4540 

8.2062078 

19.971312 

15.738008 

28409.090 
8664589. 5 

01 

B2 

154.88000 

54 

B 

1600000. 1 
0 . 21124L9E 

08 

3348.0809 

3388.6408 

9297.4747 

0.2591069 

214277.00 
0.83989 12E 08 

9881.9373 

8.6248378 

19.804277 

13.492082 

28409. 090 
8664630. 5 

01 

02 

156.64000 

55 

8 

1550000. 1 
0.2113014E 

08 

3420.2439 

2825.6840 

95 82.0894 
0. 1982380 

220<f3l.75 
0 .8 1 1839 3E 38 

10 L74.208 
9.0738319 

19.643584 
l 1.425267 

28409. 090 
8664663. 9 

81 

02 

158.40000 

56 

a 

1 ^ 00000. 1 
0.211 3623E 

08 

3495.4170 

2321.1644 

9876.5994 

0.1492897 

226316.50 
0.81 34775E 08 

10476.887 

9.5569077 

19.489327 

9.5447098 

28409. 090 
8664690. 7 

Bl 

02 

160 .16000 
57 

8 

1450000. 1 
0.21 14245E 

08 

3573.8610 

1875.2396 

10181.642 

0.1104759 

232536.50 
0.81 49078 E 08 

10790.658 

13.078420 

19.341598 

7.8550763 

28409. 090 
8664712.0 

Bl 

B2 

1 6 1 .92000 
5 B 

8 

1400000. 1 
0.21 1488 IE 

08 

3655.8628 

1487.0989 

10497.921 
0. B017585E-31 

238897.00 
0.8161 152E 08 

11116.280 

13.643536 

19.200486 

6.3578971 

28409. 090 
8664728. 6 

Bl 

B2 

163 .68000 
59 

8 

1350000. 1 
0.21 15532E 

oa 

3741. 7397 
1154.8419 

10826.221 

0.5692589E-01 

245405.50 
0.8171 169E 08 

11454.592 

11.258523 

19.066083 

5.0509226 

28409. 090 
866474 1.4 

fll 

B? 

165 .4400 0 
60 

8 

1300000. I 
0.2116198E 

08 

3831.8430 
875. 74802 

11167.415 
0. 3943 1 09E -3 *. 

252069.25 
0 .81793 186 08 

11806.532 

11.930961 

18.938483 

3.9290515 

20409. 090 
8664751. 0 

Bl 

B2 

167.20000 

61 

a 

L2 50000. 1 
0.21 16081E 

08 

3926.5642 

646.32396 

11522.483 

0.26557846-01 

258894.75 
0.818 580 3E 08 

12173.147 

12.670091 

18.817783 

2.9843530 

28409. 090 
8664758.0 

Bl 

B2 

168 .96000 
62 

8 

1200000.0 

0.2L17581E 

08 

4026.3414 

453.22121 

11892.522 
0. 1 731022E-01 

265891 .50 
0.81 908 1 6E 08 

12555.617 

13.311385 

18.704083 

2.1470740 

28409.090 

8664763.1 

Bl 

82 

168 .96000 
62 

8 

1200000.0 
0. 21 17501E 

08 

4026. 3414 
0 

11892.522 

0 

265391.50 
0.81 908 16E 08 

12555.617 

0 

18.704083 
2. 1470740 

28409. 090 
8664763. 1 

KICK 

. ANGLE = 

89.499999 








Bl 

B2 

15.000000 

0 

0 

5573863.6 
0 . 209 1092E 

08 

144.40752 

22896.708 

1343. 8552 
2049.5846 

1022.7500 

11523.263 

1351.5918 
0. 1274009 

6.1333345 
P 3.206762 

28409. 090 
7540854.0 

Bl 

B2 

126.72000 

36 

3 

2400000. 0 
0. 21G5624E 

08 

2950.5878 
L4853. 523 

5227.4019 

3.5507133 

146336.25 
0. 63 83463E 08 

6002.6411 

4.4642369 

29.442396 

49.534614 

28409. 090 
8662825.5 

Bl 

B2 

128.48000 

37 

3 

2350000.0 
0. 2106L49E 

08 

3021.2751 

12803.705 

5390.6908 

2.9196109 

151591.00 
0.6123750E 08 

6179. 6158 
4. 5869120 

29.268955 

42.999542 

28409. 090 
8663171.5 

Bl 

B2 

130.24000 

38 

3 

2300000.0 
0.210668 8E 

08 

3093.4461 

10976.908 

5558.5358 

2.3835090 

156971.50 
0.6159930E 38 

6361.3465 

4.7183731 

29.096890 
37. 144917 

28409. 090 
8663465.5 

Bl 

B2 

132.00000 

39 

3 

2250000. 0 
0. 210723 8E 

08 

3167. 1998 
9538.8228 

5731.0843 

1.9522903 

162480.50 
0.619 2 4 52E 08 

6548.0137 

4.0833768 

28.92 6591 
32.589723 

28409.090 
8663702. 0 

01 

B2 

133.76000 

40 

3 

2200000.1 

0.21078026 

08 

3242.6420 

8244.3633 

5908.4962 

1.5916721 

168120.50 
0. 62 2 19356 08 

6739.8112 

5.0531233 

28.750422 

28.449290 

2 8409. 090 
8663899.7 

Bl 

02 

135.52000 

41 

3 

2150000. 1 
0. 21 0838 0E 

08 

3319.8879 

7086.3380 

6090.9459 

1.2915150 

173395.00 
0.6248498E 08 

6936.9510 

5.2278028 

28.592718 

24.707903 

28409.090 

8664064.4 

81 

82 

137.28000 

42 

3 

2100000. 1 
0.2108971E 

08 

3399.0601 

6149.8824 

6278.6254 

1.0406715 

179807.25 
0.6272464E 08 

7139.6602 

5.4640543 

28.429790 
21. 749124 

28409.090 
8664201. 9 

Bl 

S2 

139.04000 

43 

3 

2050000. i 
0.21095 77E 

OS 

3480.2898 

5313.7916 

6471.7361 
0. 8295351 

185860.50 
0.62943256 08 

7348.1824 
5.736241 2 

28. 269922 
19. 106784 

28409. 090 
8664317.6 

Bl 

B2 

140.80000 

44 

3 

2000000. 1 
0 .21 10196E 

08 

3563.7194 

4537.9548 

6670.5027 

0.6530060 

192358.50 
0.63 14080 E 08 

7562. 7B41 
6.0261805 

28.113384 

16.599670 

28409. 090 
866441 4.5 

Bl 

82 

142.56000 

45 

3 

L 950000. 1 
0.21 1083 IE 

08 

3649.5016 

3857.4215 

6875.1675 

0.5070645 

198435.25 
0.6331723E 08 

7783.7518 
6. 3357854 

27.960420 

14.248271 

28409. 090 
8664494. 5 


71 


01 

82 

144.32000 

46 

3 

1900000. 1 
0.211 1481E 08 

3737.8004 

3233.3705 


7085.9935 

0.3878778 

204905.50 
0.6347282E 08 

8011.3954 

6.6672870 


27.811260 

12.069554 


28409. 090 
8664559.9 

01 

02 

146.00000 

47 

3 

1850000. 1 
0.2112147b 08 

3828.7931 

2668.9806 


7303.2657 

0.2918545 

211563.25 
0.6360814E 08 

8246.0513 

7.0232744 


27.666117 

10.077288 


28409. 090 
8664 612.5 

Bl 

B? 

147.04000 

48 

3 

1800000. 1 
0.2112829E 08 

3922.6705 

2166.0240 


7527.2981 

0.2156309 

218383.75 
0.6372405E 08 

8488.0835 
7. 4068170 


27.525190 

8.2808009 


28409. 090 
8664654.4 

01 

02 

149.60000 

49 

3 

1750000. 1 
0 .21 1352 8E 08 

4019.6394 

1724.9980 


7758 .4255 
0. 1561138 

225372.25 
0.6382169E 08 

8737.8879 

7.8215533 


27. 388665 
6.6853700 


28409. 090 
8664687.0 

01 

02 

151.36000 

50 

3 

1700000. 1 
0.21 142 44E 08 

4119.9237 

1345.1083 


7997.0225 

0.1104895 

232534.00 
0.6390242E 08 

8995.8959 

8.2718366 


27.256718 

5.2920369 


28409. 090 
8664712. 0 

Bl 

02 

153.12000 
5 1 

3 

1650000. 1 
0.21 14978E 08 

42 2 3 . 7669 
1024.2496 


8243.4905 
0. 76 2 2 66 5 E— 31 

239875.25 
0.6396780 E 08 

9262. 5776 
8.7629544 


27.129513 

4.0973778 


28409. 090 
8664730. 7 

01 

02 

154.88000 

52 

3 

1600000. 1 
0.211573 IE 08 

4331.4341 
759. 15142 


8498.2740 
0. 51 08666E-Q l 

247402.75 
0.6401951E 08 

9538.4478 
9. 3013892 


27.007210 

3.0938638 


28409. 090 
8664744.5 

01 

02 

156.64000 

53 

3 

1550000. 1 
0.21 16S03E 00 

4443.2150 

545.52353 


8761 .8608 
0.3312232E-01 

255123.50 
0 . 6405934E 08 

9824.0708 

9.8951820 


26.889958 

2.2702116 


28409. 090 
8664754.4 

Bl 

B2 

158.40000 

54 

3 

1500000. 1 
0.2U 7295E 08 

4559.4274 

376.13078 


9034.7881 
0. 2 06 053% E— 31 

263044.25 
0 . 640890 8E 08 

10120.068 
10 .538694 


26.777904 
1.601 9586 


28439. 090 
8664761.2 

Bl 

02 

160 .16000 
55 

3 

1450000. 1 
0.21 1 81 09E 08 

4680.4203 

241.39282 


9317.6492 
0. 1252986E— 01 

271174.25 
0. 64 10 988 E 08 

10427.124 
10 .698293 


26.671189 

1.0417447 


28409.090 

8664765.7 

Bl 

02 

161.92000 

56 

3 

14ro000. 1 
0.211 894 3E 06 

4806.5789 

152.87716 


9611.1016 
0. 752165 IE-02 

279521.50 
0.6412379E 08 

10745.998 

11.271943 


26. 569954 
0.6689733 


28409. 090 
8664768.5 

Bl 

02 

163.68000 

57 

3 

1350000. 1 
0.21 1980 IE 08 

4938.3292 

95.491111 


9915.8762 
0. 4455010E-32 

288395.25 
0.64 13297 E 08 

11077.531 

11.660637 


26.474336 

0.4240248 


28409. 090 
8664770. 1 

81 

B2 

165.44000 

58 

3 

1300000.1 
0.2120682E 08 

5076. 1445 
58.790558 


10232. 788 
0.260181 IE— 02 

296906.50 
0.64 13895 E 08 

11422.662 

12.065480 


26.384474 

0.2651325 


28409.090 

8664771.1 

Bl 

B2 

167.20000 

59 

3 

1250000. 1 
0.212 1588E 08 

5220.5534 
34. 776480 


10562.751 

0.1509280E-32 

305965.25 
0 ■ 64 142 75 E 08 

11782.439 

12.220481 


26.300509 

0.1577772 


28409. 090 
8664771.7 

Bl 

02 

168.96000 

60 

3 

1200000.0 
0.2122520E 08 

5372.1478 

20.646622 


10906.791 
0. 8908458E-03 

315285.00 
0.64 14508E 08 

12158.045 

12.267275 


26.222586 

0.9384190E 

-01 

28409.090 
8664772. 1 

Bl 

B2 

168 .96000 
60 

3 

1200000.0 
0.2122520E 08 

5372.1478 

0 


10906.791 

0 

315285.00 
0.641 45 08E 08 

12158.045 

0 


26.222586 

0.9384190E 

-01 

28409.090 
8664772. L 

Bl 

B2 

TIME 

STEPGO+ST EPNO 

HEIGHT 

RADIUS 

3 AD. VELOCITY 
DRAG 

HOR. VELOCITY 
PRESSURE 

ALT ITUDE 
HEAT INTEGRAL 

IN*. VELOCITY 
MACH NUHBER 

I NR . GAMHA 

a 


= LOW 
THRUST 

Bl 

B2 

15.000000 

U 

0 

8«*386 3.6 
0.2091092k OB 

144.40427 
22 89*- 7 08 


1344.1845 

2049.5846 

1022.7500 

11523.263 

1351.9190 

0.1274009 


6.1317059 

23.286762 


28409. 090 
7540854.0 

Bl 

02 

141.86617 

43 

10 

1969711.2 
0.2107685E 08 

2666.5626 

0 


7620.9010 

0 

166942.00 
0 • 85 25801 E 08 

8073.9514 

0 


19.285004 

44.056735 


28409.090 
8663861 . 7 

U1 
U 2 
U3 

141.86617 

3504.6729 

0 


1603802.7 
0.9352771 
0.9336385E- 02 

34.722583 
- 0.4094846E 
89.369293 

-01 

166958.75 
-0. 1995205E 38 
0.2107685E 08 

0.9135463 
-741.75146 
883. 61763 

19.285004 
0. 2071683E- 
1832855.0 

01 

1952.9455 

0 

178.09129 


8073.9511 

2666.5625 

7620.9009 

U1 
U 2 
U3 

395.58308 

3504.6729 

19 


714607.88 

2.0990532 

~0 

27.269355 

-0.14905586 

89.369293 

-01 

636969.25 
-0. 1479273E 38 
0.21546B6E 08 

0.5597554 

-853.48028 

1249.0634 

6.8998464 
0.45227 8 5E- 0 l 
9541279.6 

2742.9387 

7.9106708 

174.50667 


17132.630 
2050.2144 
17008. 550 

U1 

U2 

U3 

395.58308 

294.11765 

19 


615264.45 
0.4063293 
-0 • 18 16063E 09 

27.269355 
-0. 1498558E 
89.369293 

-01 

636969.25 
-0. 1479273E 38 
0. 21 54686E 08 

0.5597554 

-853.48028 

1249.0634 

6.8998464 
0 • 452278 5E- 
9541279.6 

01 

2742.9387 
7.9106708 
174. 50667 


17132.630 
2058.2144 
1700B. 550 

U1 

U2 

U3 

999.28226 

294.11765 

34 


437705.86 

0.5711598 

4.0000000 

19.516920 

-0.1591849E 

89.369293 

-01 

741988.00 
732543.25 
0. 21651S8E 38 

0. 854492 2E -03 
1879 .1456 
-879.86337 

-0. 415772 IE- 
0. 674866 6E- 
0. 2 166093E 

0 l 

01 
08 

5338.8527 
41. 171320 
-60.072076 


25502.984 

-18.505475 

25502.978 

U1 

U2 

U3 

999.28226 

294.11765 

34 


224442.69 

0.5711598 

4.0000000 

19.518920 

-0.15918496- 

89.369293 

-01 

741988.30 
732543.25 
0. 2165188E 38 

0 • 8544922E-03 
1879 .1456 
-879.86337 

-0.4157721 E- 
0 • 6748666E- 
0. 2 166093E 

01 

01 

08 

5338.8527 
41. 171320 
- 60.072076 


25502. 984 
-18.506475 
25502.979 

U4 

U5 

U6 

141.86617 

253.71691 

603.69919 


0 

0 

0 

4030288. 7 
889194.77 
317697. 99 


0 

0 

0 

365908.66 

99343.427 

73123.759 

0 

0 

0 


0.9167670 

0.8995047 

0.8128974 


0 

0 

0 

Bl 

B2 

TIME 

STEPGO+ST EPNO 

WEIGHT 

RADIUS 

RAD. VELOCITY 
DRAG 

HOR. VELOCITY 
PRESSURE 

ALTITUDE 
HEAT INTEGRAL 

INR. VELOCITY 
MACH NUMBER 

[NR. GANHA 

a 


“ LOW 
THRUST 

KICK ANGLE = 

89.349999 










Bl 

82 

15.000000 

0 

0 

5573863.6 
0.209 1092E 08 

144.40372 

22896.706 


1344.2332 

2049.5845 

1022.7500 

11523.263 

1351.9673 
0. 1274009 


6.1314628 

23.286762 


28409.090 
7540854. 0 

Bl 

B2 

126.72000 

40 

10 

2400000.0 
0. 21 03674E 08 

2208.0924 

36450.029 


5957.9770 

7.5273920 

126336.00 
0 . 8254204E 08 

6353.9879 

4.8578877 


20.335265 

124.34763 


28409. 090 
8660644. 7 

Bl 

02 

128.48000 

41 

10 

2350000.0 
0.2104066E 08 

2243.1953 

32666.899 


6142.7394 

6.4419537 

130753.00 
0 .8362368 E OB 

6539. 5086 
4.9906117 


20.06L098 
112. 31123 


28409. 090 
8661240.0 

Bl 

82 

130.24000 

42 

10 

2300000.0 
0.2104464E 08 

2278.7472 
2 9268.523 


6332.3339 

5.5148937 

134731.75 
0.84635 19E 08 

6729.8693 
5. 1259624 


19.791723 

101.43452 


28409.090 
8661748. 4 
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ai 

B2 

132 .00000 
43 

10 

2250000.0 

0.21048686 

08 

2314. 8167 
26217.521 

6526 .9239 
4.7218099 

138773.75 
0.85 58089 E 08 

6925.2490 
5. 2647598 

19.527396 

91.614383 

2 8409. 090 
8662103.2 

fll 

82 

133.76000 

44 

10 

2200000. 0 
0.2105278E 

08 

2351.4770 

23477.232 

6726.6745 

4.0418899 

142379.75 
0.86 46 48 7E 3B 

7125.8400 

5.4079722 

19.268347 
82. 746840 

28409. 090 
8662556.1 

B1 

B2 

135.52000 

45 

10 

2150000. 1 
0.2105696E 

08 

2388.8057 

21011.155 

6931.7850 

3.4572631 

147350.75 
0.87 29093E 08 

7331.8508 

5.5567043 

19.014783 

74.724849 

28409. 090 
8662 076. 7 

B 1 
B2 

137.28000 

46 

10 

210U000. 1 
0.2106119E 

08 

2426.8858 

18783.756 

7142.4579 

2.9526993 

151288.00 
0. 88 36243E 08 

7543.5059 

5.7121996 

18.766888 
67. %4 1000 

28409.090 

0663153.% 

81 

B2 

139.04000 

47 

10 

2050000. 1 
0 . 2 1 06550E 

08 

2465.8062 

16658.750 

7358.9184 

2.5056029 

155593.00 
0.8878142E 00 

7761.0489 

5.8677334 

18.524829 
60. 388054 

28409. 090 
8663390. 6 

B 1 
B2 

140.80000 

48 

10 

2000000. 1 
0.21 0698 7E 

08 

2505.6609 

15044.213 

75 81 . 4QBS 
2. 138327% 

159967.50 
0.8345199E 38 

7984. 7414 
6.0673344 

18. 288757 
55.102093 

28409. 090 
8663630. 3 

81 

82 

142.56000 

49 

10 

1950000. i 
0.2107432E 

08 

2546.5485 

13601.066 

7810.1877 

1.8203228 

164% 1 3 . 30 
0 . 93 08 376 E 08 

8214.8611 

6.2728454 

18.058802 

50.138992 

20439.090 
8663 774. % 

B 1 
B2 

144.32000 

50 

10 

1900000.1 
0.2 107884E 

08 

2688.5772 

12258.996 

8045.5434 

1.5456435 

168931.25 
0.9067723E 38 

8451.7159 

6.4845409 

17.835086 

45.495143 

28409.090 

8663925.0 

Bl 

B2 

146.08000 
5 l 

10 

1850000.1 

0.21083436 

08 

2631.8634 

11015.236 

8287.7896 
i. 3089433 

173524.50 
0.9L23310E 08 

8695.6404 

6.7027195 

17.617722 

41.164321 

2 8409. 090 
866405%. 7 

Bl 

B2 

1 47 .84000 
52 

10 

18000 00. 1 
0.21088106 

08 

2676.5313 

9969.4441 

8537.2670 

1.1042300 

178195.25 
0.9175363E 08 

8946.9967 

6.9727106 

37.406808 

37.580353 

28409. 090 
8664157. 0 

Bl 

8? 

149.60000 

53 

10 

1750000. 1 
0.21092856 

08 

2 722.7137 
9046.0739 

8794.3440 

0.9260077 

182945.75 
0.92 24748E 38 

9206. 1749 
7.2904415 

17.202435 

34.452465 

28409. 090 
866%25%. 7 

HI 

H2 

151. 36000 
54 

10 

1700000.1 

0.2109769E 

08 

2770.5557 

8150.4319 

9059.4281 
0. 7709303 

167778.75 
0.927 1393E 08 

9473.6063 

7.6260566 

17.004688 

31.384353 

28409. 090 
866%3%9. 7 

Bl 

B? 

153.12000 

55 

10 

1650000. 1 
0.21102616 

08 

2820.2142 
72 87.9609 

9332.9655 

0.6368161 

192697.75 
0.9315160E 08 

9749.7616 

7.9811785 

16. 813647 
28.395277 

28409. 090 
8664423.% 

Bl 

B2 

154.88000 

56 

10 

1600000. 1 
0.2L10762E 

u 8 

2871.8592 

6463.8030 

9615.4443 

0.5216078 

197706.00 
0 . 9355939E 08 

13035.156 
8. 3576350 

16.629386 

25.504038 

28%09. 090 
866% 486 . 5 

Bl 

B2 

156.64000 

57 

10 

1550000.1 

0.21U272E 

08 

2925.6759 

5682.6287 

9907.4022 

0.4233603 

202336.75 
0.9393648E 08 

10330.353 
8. 7574997 

16.451977 
22. 72837P 

28409. 090 
86645%0. % 

Bl 

B2 

158.40000 

58 

10 

1500000.1 
0.211 1792E 

08 

2981.8657 

4948.3115 

10209.429 

0.340221% 

200304.50 
0 . 9% 2 82 39E 38 

10635.975 
9. 1831641 

16.281489 

20.083731 

2 8%09. 090 
8664586. 0 

81 

B2 

160.16000 

59 

10 

1450000.1 
0 . 21 1 232 2E 

08 

3040.6494 

4264.3092 

10522.177 

0.2704719 

213303.00 
0.9% 596936 08 

13952.705 

9.6373506 

16. i 1 7989 
17.584723 

2 8%09. 090 
8664624. 2 

Bl 

02 

16 1.92000 
60 

10 

1900000. 1 
0.21 12862E 

08 

3102.2696 

3633.1408 

108%6. 368 
0.2124809 

218707.75 
0.9488026E 08 

11281.302 
13 .123244 

15.961547 

15.243111 

28409. 090 
8664656.0 

Bl 

B2 

163.68000 

61 

10 

1350000. 1 
0.2L13414E 

08 

3166.9936 

3056.8286 

11182.80% 
0. 1647825 

224223.25 
0.95132856 00 

1 1622.606 
13.644506 

15.812233 

13.069535 

28409.090 

8664682.2 

Bl 

B2 

165.44000 

62 

10 

1300000. 1 
0.211397 7E 

08 

3235.1175 

2536.4853 

11532.381 
0. 12 5963 8 

229855.25 
0.95355526 08 

11977.554 

11.205446 

15.670119 

11.071830 

28409. 090 
9664703. 5 

81 

B2 

167.20000 

63 

10 

1250000.1 
0. 21 14553E 

08 

3306.9704 

2072.3420 

11896.098 
0. 9%77502fc-31 

235611.30 
3.95549396 08 

12347.194 

11.811190 

15.535282 

9.2550601 

! 840 9. 090 
3664720. 5 

81 

B2 

168.96000 

64 

10 

1200000.0 

0.2115141E 

08 

3382.9203 

1664.0305 

12275. 082 
0.7005370E-31 

241%96.53 
0.9571588E 08 

12732.705 

12.467759 

15.407806 

7.6226484 

28439. 090 
8664734. 1 

Bl 

B? 

168.96000 

64 

10 

1200000.0 
0.21 15141E 

08 

3382.9203 

0 

12275.082 

0 

24 1496.50 
0.9571588E 08 

12732.705 

0 

15.407806 

7.6226484 

28409. 090 
8664734.1 

Bl 

B2 

I IME 

STEPGO+STEPNO 

WE 1GHT 
RADIUS 


*ad. veloci ry 

DRAG 

h or. veloci ry 
PRESSURE 

ALTITUDE 
HEAT INTEGRAL 

IN*. V EL 3C IT 7 
MACH NUMBER 

IN*. GAMMA 

a 

: LOW 
T *RUST 

Bl 

B2 

15.000000 

0 

0 

5573863.6 

0.2091092E 

08 

144.40433 

22896.708 

1344.1793 

2049.5846 

1022.7500 

11523.263 

1351.9137 
0. 1274009 

6.1317322 

23.286762 

28409.090 

7540854.0 

fll 

82 

141 .86232 
42 

9 

1969820.4 

0.21077316 

08 

2681.4959 

0 

7609.2579 

0 

167403.30 
3 .84 77 190 E 08 

8067.9135 

0 

19.412413 

43.265638 

28409.090 
8663875. 7 

Ul 

U2 

U3 

141.86232 

3504.6729 

0 


1603915. 1 
0.9352116 
0.9 35Q344E- 

-02 

34.643657 
-0. <>0955436-01 
89.371392 

167419.75 
-0. 1995507E 38 
0. 2 10773 IE 08 

0.9138139 
-741. 17240 
883.03473 

19.412413 
0. 206B473E-01 
1827338.7 

1952.7882 

0 

178.08405 

8067.9132 

2681.4959 

7609.2578 

Ul 

U2 

U3 

395.70713 

3504.6729 

19 


714272.10 
2-1000400 
-0. 1164153E- 

-09 

27.202741 
-0. 1484268E— 01 
89.371392 

639858.75 
-0. 1478985E 38 
0.21549756 38 

0.5596458 
-853. 60007 
I 249.3072 

6.9077446 

0.4522475E-01 

9545090.6 

2743.8466 
7.9094726 
174. 49775 

17134. 04 0 
2060. 72B5 
17009.665 

Ul 

U2 

U3 

395.70713 

294.11765 

19 


614913.88 
0.4065610 
-0. 1814946E 

09 

27.202741 
- 0. 14 842686-01 
89.371392 

639858.75 
-0. 147898 5c 38 
0.21549756 00 

0.5596458 
-853. 60307 
1249.3072 

6.9077446 

0 • 45 224 75 E- 01 

9545090.6 

2743.8466 
7.9094726 
174. 49775 

17134. 040 
2060.7235 
17009.655 


Ul 998.86699 437513.93 19.701302 748787.25 3 . 24414066-03 -0 .97 17724E- 02 5338.8527 25494.980 
U2 294.11765 0.5714104 - 0. 1 5 1 5999E -01 745763.75 1768.0430 0. 6744432E-01 41.131941 -4.3241090 
U3 34 0.0000000 89.371392 0.21658686 08 -769.17600 0.21660946 08 -58.359989 25494.980 

Ul 998.86699 224338.62 19.701302 748787.25 0.24414066-03 -0.97 177246-02 5338.8527 25494.980 
U2 294.11765 0.5714104 -0.15159996-01 745763.75 1763.0430 0.67444326-01 41.131941 -4.3241090 
U 3 34 8.0000000 89.371392 0.21658686 08 -769. 17600 0.21660946 08 -58.359989 25494.930 

U4 141.86232 0 4030179.6 0 365905.38 0 0.9167656 0 
U5 253.84481 0 889643.02 0 99358.219 0 0.8995368 0 
U6 603.15985 0 317477.91 0 73097.349 0 0.8128470 0 
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18=144 

it NOTE THAT THE FIRST STAGE 
NOPT =0* 1 • l 
HO DEC =3 


•$$ First stage duration 

IS FIXED IN DURATION 

,$$ PHASE OPTIMIZATION FLAGS 
,$$ BOOSTER OUT PJT TYPE 


A1 THRUST ONE 
A2 THRUST TWO 
A3 THRUST THREE 


U1 TIME 
U2 FLOW 
U3 STEP NO 


U4 BURN TIME ONE 
U5 BURN TIME TWO 
U6 BURN TIME THRE 


AI 8664772-6 
A2 1500000.0 
A3 250000.00 

B1 TIME 

B2 STEPGO+STEPNO 
83 PS I 
B4 PS ID 
B5 DRAG 

BL 15.000000 
B2 0 0 

B3 89.362491 
B4 -1.3528310 
B5 22896.708 

Bl 144.00000 
02 42 8 

B3 22.112170 
B4 -0.1837770 
B5 0 

U1 144.00000 
U2 350 4.6729 
U3 0 

Ul 380.10155 
U2 3504.6729 
U3 15 


THRUST FOUR 
THRUST FIVE 
THRUST SIX 

WE IGHT 

ACCELLERATIDN 

CAPPA 


BURN TIME FOUR 
BURN TIME FIVE 
BURN TIME SIX 

0 

O 

O 

LATITUDE 
LONGITUDE 
INR. AZIMUTH 
REL. AZIMUTH 
PRESSURE 

28.299972 

279.49999 

90.000000 

89.999966 

2049.5846 

28.292814 

280.24094 

90.666348 

90.803360 

0 

1541363.8 

0.9731641 

-4.0000000 

713905.12 

2-1011195 

-4.0000000 


FLOW ONE 
FLOW TWO 
FLOW THREE 


PSI 

PSID 

KICK ANGLE 


WP ONE 
WP TWO 
WP THREE 


28409.090 

3504.6729 

294.11765 

RADIUS 

ALTITUDE 

RANGE 

ALPHA 

HEAT INTEGR. 

0.2091092E 08 
1022.7500 
0.81 81382E— 1 0 
0 

11523.263 

0.2108103E 08 
171119.50 
0. 1874056E-05 
0 

0.8742585E 08 

33.483757 
- 0.3997 838E— 01 

89.362491 

26.753526 
-0. 144542 4E-01 

89.362491 


FLOW FOUR 
FLOW FIVE 
FLOW SIX 

ALTITUDE 
PERIGEE ALT 
RADIUS 


WP FOUR 
WP FIVE 
WP SIX 

0 

0 

0 

INR. VELOCITY 
INR. GAMMA 
REL. VELOCITY 
REL. GAMMA 
MACH NO 

1351.9360 
6. 1316233 
144.41302 

89.362491 
0.1274009 

8375.0155 

18.624490 

7105.5584 

22.112170 

0 

171137.00 
-0. 1986670E 38 
0.21 08 103 E 08 

631864.75 
-0. 148661 9E 38 
0.21 54175E 08 


HARD ONE 
HARD TWO 
HARD THREE 


ECCENTRICITY 
TIME OF PERIGE 
TIME PER OEP 

HARD ONE 
HARD TWO 
HARD THREE 

245300.00 

70000.000 

35003.000 

PERIOD 

TRUE ANOMALY 

NOOE 

TIME PER DEP 
DRAG COEFF 

1794.0381 
179.98343 
189.56266 
B91. 56180 
1.1500000 

19^5.0361 

177.98967 

189.43693 

888.57816 

0 

0.9362285 
-744. 57370 
888.57870 

0.5639655 
-859. 60535 
1239.7069 


HARD 

FOUR 

HARD 

FIVE 

HARD 

SIX 

INR. 

GAMMA 

OMEGA 

SEM LAT REC 

HARD 

FOUR 

HARD 

FIVE 

HARD 

SIX 


0 

0 

0 

SEM LAT REC 
ECCENTRICITY 
INR. INCLIN. 
REL. INCLIN. 
DYNAM . PRES. 


56L27.982 
0.9973159 
28.299972 
28 .299971 
23.286763 

1988558.2 

0.9062285 

28.300011 

28.303274 

41.217055 

18.624490 
0. 2 1570 30E- 0 l 
1988558.2 

7.2217565 

0 • 450 3740E- 01 

9452133.0 


PROP ONE 
PROP TWO 
PROP THREE 

PERIOD 

TRAVEL ANGLE 
TRUE ANOMALY 


M F ONE 
M F TWO 
M F THREE 

0. 3000000E-01 
0.3300000E-01 
0.1200000 

WEIGHT 

FLOW 

RAD. VELOCITY 
HOR VELOCITY 
TIME OF PER 135 

5573863.6 

28409.090 
144.40408 
1344.2018 
- 876.56180 

1909090.9 

28409.090 

2674.6817 

7936.4326 

-744.57816 

1965.0360 

0 

177.98967 

2732.7799 

7.4804338 

174.34212 


PROP 

FOUR 

PROP 

FI VE 

PROP 

SI X 

INR. 

VELOCITYY 

RAO. 

VELOCITY 

HOR. 

VELOCITY 

M F 

FOUR 

M F 

FIVE 

M F 

SIX 


0 

0 

0 

ACCELLERATI ON 
URUST 

INR TRVL AN3L 
REL TRVL AN3L 
I NR. TRAVEL 

1.3487874 

7540854.0 
0. 2638724E-03 
0. 1362145E-1 1 
0.1584883E-0S 

4.5382801 
8663989.5 
0.5S53225E-07 
0.312017SE-0? 
0.33 95469E-05 

8375.0154 

2674.6817 

7936.4325 

17068.319 

2145.6577 

16932.917 


Ul 380.10155 
U2 294.11765 
U3 15 


616598.98 
0.4054499 
-0.1828609E 09 


26.753526 
- 0. 1445424E— 01 
89.362491 


631864.75 
-0. 1486619E 08 
0.21 541 75E OB 


0.5639655 

-859.60535 

1239.7069 


7.2217565 2732. 7799 
0.4503740E-01 7.4804338 
9452133.0 174.34212 


17068. 319 
2145.6577 
L6932.91 7 


Ul 989.37902 
U2 294.11765 
U3 30 


437399.73 

0.5715596 

-0 


20.320702 
-0.1 124348E— 01 
89.362491 


751615.50 
7473 13.00 
0. 21 6615 1 E 08 


0 . 172633 5E-03 

653.79829 

335.58073 


0. 1681029E-02 5338.8527 
0 . 674267 1E-0 1 40.964771 
0. 2166094E 08 131.58272 


25491. 652 
0.7479122 
25491. 652 


Ul 989.37902 
U2 294.11765 
1*3 30 


224049.45 

0.5715596 

-0 


20.320702 
-0.1 124348E-01 
89.362491 


751615.50 
747313.00 
0. 2 1 66 15 1 E 08 


0. 1726335E-03 

653.79829 

335.58073 


0. 168 1029E-02 5338. 8527 

0.674267 IE-01 40.964771 

0.2166094E 08 131.58272 


25491.652 

0.7479122 

25491.652 


U4 

144.0000U 

0 

4090909.0 

0 

367727.27 

0 

0.9175247 

0 

U5 

236.10155 

0 

827458.69 

0 

97306.136 

0 

0.8947774 

0 

U6 

609.27747 

0 

319240.65 

0 

73308.877 

0 

0.0132494 

0 


T B= 144* 250 


»S$ 


NOPT=G*Q» 1 .St 

it NOTE THAT THE FIRST AND SECOND STAGES ARE FIXED 


FIRST TWO STAGE DURATIONS 
PHASE OPTIMIZATION FLAGS 
IN DURATION 


Al 

THRUST ONE 

THRUST FOUR 

FLOW ONE 

FLOW FOUR 

HARD ONE 

HARD FOUR 

PROP ONE 

PROP 

FOUR 

A2 

THRUST TWO 

THRUST FIVE 

FLOW TWO 

FLOW FIVE 

HARD TWO 

HARD FIVE 

PROP TWO 

PROP 

FIVE 

A3 

THRUST THREE 

THRUST SIX 

FLOW THREE 

FLOW SIX 

HARD THREE 

HARD SIX 

PROP THREE 

PROP 

SI X 

Ul 

TIME 

WEIGHT 

PSI 

ALTITUDE 

ECCENTRICITY 

INR . GAMMA 

PERIOD 

INR. 

Vr LOCI TYY 

U2 

FLOW 

ACCELLERATION 

PSID 

PERIGEE ALT 

TIME OF PERIGE 

OMEGA 

TRAVEL ANGLE 

RAD. 

VELOCITY 

U3 

STEPNO 

CAPPA 

KICK ANGLE 

RADIUS 

TIME PER OEP 

SEM LAT REC 

TRUE ANOMALY 

ROR. 

VELOCITY 

U4 

BURN TIME ONE 

BURN TIME FOUR 

WP ONE 

WP FOUR 

HARD ONE 

HARD FOUR 

M F ONE 

M F 

FOUR 

U5 

BURN TIME TWO 

BURN TIME FIVE 

WP TWO 

WP FI VE 

HARD TWO 

HARD FIVE 

M F TWO 

M F 

= 1 VE 

U6 

BURN TIME THRE 

BURN TIME SIX 

WP THREE 

WP SIX 

HARD THREE 

HARD SIX 

M F THREE 

M F 

SIX 
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Al 

8664772.6 

0 

28409.090 

0 


245000.00 

0 

0. 3000000E -01 

0 

A 2 

1500000.0 

0 

3504.6729 

0 


70000.000 

0 

0. 3300000E -01 

0 

A3 

250000.00 

0 

294.11765 

0 


35000.000 

0 

0.1200000 

0 

Bl 

r ihe 

LATITUDE 

RADIUS 

INR. VELOCITY 

PERIOD 

SEM LAT REC 

HEIGHT 

ACCELLE RATI ON 

B 2 

STEPGQ+STEPNO 

LONGITUDE 

ALT 1 TUOE 

INR. GAMMA 


TRUE ANOMALY 

ECCENTRICITY 

FLOW 

THRUST 

B3 

PSI 

INR. AZIMUTH 

RANGE 

REL. VELOCITY 

NODE 

INR. INCLIN. 

RAD. VELDC1TY 

INR TRVL ANGL 

84 

PSIO 

REL. AZIMUTH 

ALPHA 

REL. GAMMA 


TIME PER DEP 

REL. INCLIN. 

HOR VELOCITY 

REL TRVL ANGL 

B5 

DRAG 

PRESSURE 

HEAT INTEGR. 

MACH NO 


DRAG COEFF 

DYNAH. PRES. 

TIME OF PERI3E 

I NR. TRAVEL 

Bl 

15.000000 

28.299972 

0. 2091092E 08 

1351.9882 


1794.0355 

56132.374 

5573863.6 

l. 348787'* 

B2 

0 0 

279.49999 

1022.7500 

6.1313572 


179.98343 

0.9973157 

28409.090 

7540054. 0 

B3 

89.34 1623 

90.000000 

0. 81 81382E-10 

144.41302 


189.56266 

28.299971 

144.40348 

0. 26 38724E-03 

84 

-1.3527791 

89.999977 

0 

89.341623 


89 1.96212 

28.299976 

1344.2543 

0.1362145E-11 

B5 

22896.708 

2049.5846 

1152 3.263 

0.1274009 


1. 15O0DO0 

23.286763 

-876.96212 

0. 1584883E-05 

Bl 

144.00000 

28.292661 

0. 2 107600E 08 

8429.8875 


1966.4421 

2042321 .7 

1909090.9 

4.5381982 

B2 

44 11 

280.25666 

166087. 75 

17.382145 


178.07620 

0.9036066 

28409.090 

8663833.1 

B3 

20.623329 

90.673302 

0. 19 13838E— 05 

7149.9452 


189.43799 

28.300010 

2518. 3734 

0. 5719453E-07 

B4 

-0.183681 l 

90.809464 

0 

20.623329 


894. 63690 

28.303282 

8044.9237 

0.31 8641 0E-07 

85 

0 

0 

0. 92 77 741 E 08 

0 


0 

50.070842 

-750.63690 

0.3435245E-05 

UL 

144.00000 

1541363.8 

31. 8 84728 

166105.25 


0.9036066 

17.382145 

1966.442 1 

8429.8872 

U 2 

350 4.6729 

0.9731641 

- 0. 4634934E— 01 

-0. 1983702E 

08 

-750.63630 

0.21 87039E- 0 1 

0 

2518.3734 

U3 

0 

-0 

89. 341623 

0.2107600E 

08 

894.63630 

2042321.6 

178.07620 

8044.9236 

U1 

394.00000 

665195.59 

22.830292 

578776.25 


0.4977930 

5.5167568 

2898.4415 

18265. 592 

U2 

3504.6729 

2.2549758 

- 0. 23 123 08E— 01 

-0.13670416 

08 

-938. 58022 

0. 48 47 643 E- 01 

8.2840270 

1755.9968 

U3 

16 

-0 

89.341623 

0.2148867E 

08 

1332.5802 

0. 108432 1 E 08 

174. 38141 

18180.938 

U1 

394.00000 

566282.04 

22-830292 

578776.25 


0.4977900 

5.5167568 

2898.4415 

18265. 592 

U2 

29 4.11765 

0.4414761 

- 0. 231230 8E— 01 

-0. 1367041 E 

OB 

-938.58022 

0.4847643E-01 

8.2840270 

1 755.9968 

U3 

16 

-0. 163323 IE 09 

89. 341623 

0. 2 1 4885 7 E 

03 

1332.5802 

0. 108432 IE 08 

174.38141 

181 80. 988 

Ul 

872.02884 

425685.32 

10.830313 

750975.50 


0. 1726335E-03 

-0. 9653395E- 04 

5338. 8524 

25492. 405 

U2 

294.11765 

0.5872883 

- 0.2821767E-01 

747312.25 


888.28274 

0. 6743069E-0 1 

35.552577 

-0.429505DE-01 

U3 

29 

-0 

89. 341623 

0.21660B7E 

OB 

-16.253904 

0. 2 166094E 08 

-25. 885881 

25492.405 

Ul 

872 .0^884 

221168.00 

10. 830313 

750975.50 


0.1726335E-03 

-0. 965 339 5E- 04 

5338.8524 

25492.405 

U2 

294.1 1765 

0.5872883 

-0. 282176 7E -01 

747312.25 


888.28274 

0. 6743069E-0 1 

35.552577 

-0.4295053E-01 

U 3 

29 

-0 

89.341623 

0. 2 1 65 OB 7E 

OB 

-16.253904 

0.21 66094E 08 

-25. 885881 

25492. 405 

1(4 

144.00000 

0 

4090909.0 

0 


367727.27 

0 

0.9175247 

0 

U5 

250 .OOOou 

0 

876168.22 

0 


98913.551 

0 

0.8985587 

0 

U6 

478.02884 

0 

276887.54 

0 


68226.504 

0 

0.8023074 

0 
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APPENDIX H 


PROGRAM LISTING 


c 


SUBROUTINE AERO 

SUBROUTINE AERO COMPUTES MACH NUMBER, DYNAMIC PRESSURE, AND 
DRAG ACCELERATIONS, ACCELERATION VECTORS ARE REFERENCED TO THE 
RELATIVE WIND VELOCITY. 

THE DRAG COEFFICIENT IS ASSUMED TO BE A FUNCTION OF MACH 
NUMBER AND A TABLE OF CD VS MACH NUMBER IS ASSUMED AS A FITTED 
OUADRATIC EQUATION IN THE COEFFICIENT ARRAY. 

THE CONSTANT IN THE Q EQUATION IS 0.5*1. 4. THE RATIO OF 
SPECIFIC HEATS OF AIR IS ASSUMED TO BE A CONSTANT = 1.4. 

PA HAS UNITS OF LB/FT/FT AND VELSD FT/SEC. 

COMMON /CSTAR/ CMA ( 1000 ) ,CMB ( 1000 » 

DIMENSION DRAG (3 ),RB (5 ),VATM (5 ) 

DIMENSION VX (5 

EQUIVALENCE (AREA 
EQUIVALENCE <G 
EQUIVALENCE ( QVAL 
EQUIVALENCE (VATM 
EQUIVALENCE (VX 


) 

,CMA ( 809 ) ) , (CD , CMA ( 812 ) ) , ( DRAG ,CMA(777)) 
,CMA( 716) ) , (PA , CMA ( 806 ) ) , (Q ,CMA(807)) 
»CMA ( 808 ) ) , (RB ,CMA(754> ) , ( REVOLV ,CMA ( 799 ) ) 
,CMA(764) ), (VELSD , CMA ( 810 ) ) , ( VMACH ,CMA(811)) 
,CMA ( 759 ) ) , (WEIGHT, CMA (402) ) 


COMPUTE RELATIVE VELOCITY 
VATM(1)=VX(1 )+REVOLV*RB( 2 ) 
VATM ( 2 ) =VX ( 2 )— REVOLV*RB ( 1 ) 
VATM( 3)=VX ( 3 ) 

VATM(4)=D0T( VATM, VATM) 
VATM(5)=SQRT(VATM(4) ) 

COMPUTE MACH NUMBER 
VMACH=VATM ( 5)/VELSD 


COMPUTE DYNAMIC PRESSURE 
Q=VMACH**2*PA*0 .7 

QVAL=Q*AREA/WE I GHT*G 

FIND DRAG COEFFICIENT 
CD=QUAD( VMACH, 1 ) 

COMPUTE DRAG ACCELERATIONS 
IF(VATM(5) . EQ.0.0 ) RETURN 
DO 1 K=1 ,3 

DRAG ( K ) =— CD*QVAL*VATM( K )/VATM(5) 

RETURN 

END 


ZAER0001 

Z AER0002 

ZAER0003 

ZAER0004 

ZAER0005 

Z AER0006 

Z AER0007 

£ AER0008 

ZAER0009 

Z AER0010 

ZAER001 1 

Z AER0012 

ZAER0013 

ZAER0014 

ZAER0015 

Z AER0016 

ZAER0017 

ZAER0018 

ZAER0019 

Z AER0020 

ZAER002 1 

ZAER0022 

ZAER0023 

Z AER0024 

ZAER0025 

ZAER0026 

ZAER0027 

ZAER0028 

ZAER0029 

Z AER0030 

ZAER0031 

Z AER0032 

ZAER0033 

Z AER0034 

ZAER0035 

Z AER0036 

ZAER0037 

Z AER0038 

ZAER0039 

Z AER0040 

ZAER0041 

Z AER0042 

ZAER0043 

Z AER0044 

ZAER0045 

ZAER0046 

Z AER0047 

Z AER0048 
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IB I 


I III I II 


in mi linn ii i ii 


SUBROUTINE ATMOS 

SUBROUTINE ATMOS SUPPLIES ATMOSPHERIC PRESSURE AND VELOCITY 
OF SOUND AS A FUNCTION OF ALTITUDE. 

COMMON /SCHMOO/ A , AL , H ARDC » P ARDC t DENARD, TARDC , Y PAT , ALTPAT , 
1GM0R,0NEBYR,P1,DENS1 
COMMON /CSTAR/ CMA ( 1000 ) t CMB I 1000 ) 

COMMON /ATABLE/ CMEI8000) 


DIMENSION A (6,4,3 ) ,AL (10 

DIMENSION HARDC (10 ) , PARDC (10 

DIMENSION RB (5 ), TARDC (10 

EQUIVALENCE (ALT , CM A ( 805 ) ) , ( APR 

EQUIVALENCE (CONM ,CMA ( 71 7 ) ) , ( C PA 
EQUIVALENCE (PA ,CMA ( 806 ) ) , ( R 


) , DENARD( 10 ) 

), POWER (3 ) 

) , YPAT (4 ) 

»CME ( 004) ) , ( B ,CMA(814)) 

, CMA (719) ) , (0BLATN,CME(002 ) ) 
, CMA ( 758 ) ) , ( RB ,CMA(754)) 


EQUIVALENCE ( RBSQ ,CMA ( 757 ) ) , ( VELSD ,CMA(810)) 

DATA A MOL 1/28.966/ 

DATA AMOR/. 347881 19E-2/ 


DETERMINE IF OBLATE SPHEROIDAL OR SPHERICAL EARTH IS MODEL 
IF(OBLATN.NE.O.O» GO TO 1 


ALT=R-APR 
GO TO 2 

. ALT=R-APR*B/ SORT ( B**2+ ( APR**2-B**2 ) *RB ( 3 ) **2 /RBSQ ) 

CONVERT TO METERS FOR INTERNAL COMPUTATIONS 
! ALTM= ALT/ CONM 

BELOW ALTPAT. ...USE PATRICK AFB MODEL FIT 
ABOVE ALTPAT. ...USE ARDC 1959 MODEL FIT 
I F ( ALTM-ALTPAT . GT .0 .0 ) GO TO 6 
N = 1 

DETERMINE ALTTABI E I NTER V AL , Y P AT . INCREMENT N UNTIL LEVEL l! 
FOUND. 

) I F ( ALTM.LT.YPAT(N) ) GO TO 4 
N = N + 1 
GO TO 3 

POLYNOMIAL IN ALTITUDE DETERMINED 
► DO 5 J = 1 , 3 

i POWER ( J ) = ( ( ( (A(6,N,J)*ALTM + A ( 5 , N , J ) ) * ALTM + A ( 4, N , J ) ) *AL1 
1 A( 3,N, J) )*ALTM + A(2,N,J) )*ALTM + A(1,N,J) 

PRESS = P1*EXP( POWER ( 1 ) ) 

DENSE = DENS1*EXP( POWER ( 2 ) ) 

TEMP = POWER ( 3 ) 

GO TO 16 

GEOPOTENTIAL ALTITUDE COMPUTED 
» HALT = 6339260. 0*ALTM/(ALTM + 6344520.0) 

N = 1 

DETERMINE ALTITUDE TABLE INTERVAL, HARDC. INCREMENT N UNTIL 
LEVEL IS FOUND 

r IF( HA LT.LT. HARDC (N+l ) ) GO TO 8 
N = N +1 
GO TO 7 

IF AL (TEMPERATURE GRADIENT) IS NOT CONSTANT (INDICATED BY 


A ( 4, N , J ) )*ALTM 
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Z ERO ) , COMPUTE PARAMETERS AS FUNCTIONS OF MOLECULAR WEIGHT 
RATIO. 

8 IF(AL(N).EQ.0.0) GO TO 9 

IF AL IS CONSTANT (NON-ZERO) COMPUTE WITH SIMPLIFIED 
RELATIONSHIP. 

TEMP = TARDC(N) + AL ( N ) * ( HAL T-HARDC ( N ) ) 

AMULT = TARDC ( N) /TEMP 

PRESS = PARDC ( N ) *AMULT**( GMOR/AL ( N ) ) 

GO TO 15 

CONVERT TO KILOMETERS, FIND REGION BY HALTKM IN (0,90), 
(90,180), OR (180, INF). 

9 HALTKM = HALT/1000.0 
K = 1 

IF(HALTKM.GT.90.0) K = 2 
IF(HALTKM.GT. 180.0) K = 3 
GO TO (10, 11, 12), K 

10 TEMP = TARDC (N) 

GO TO 14 

11 AMOLE = 22.0 - 5 .04483574* AT AN2 (HALTKM- 220. 0,225.0) 

GO TO 13 

12 AMOLE = 27.106 - 7 .9356971 *ATAN2 ( HAL TKM-1 80 .0 , 140 .0 ) 

13 TEMP = TARDC (N)*AMOL 1 /AMOLE 

14 AMULT = EXP ( -GMOR* ( HALT-HARDC (N> )/TARDC(N) ) 

PRESS = PARDC(N)*AMULT 

DENSITY, VELSD, PA COMPUTED FOR PROGRAM USE. 

VELSD = (FPS), PA = (PSI). 

15 DENSE =AMOR*PRESS/TEMP 

16 VELSD = SORT ( 1.40*PRESS/DENS£ )*CONM 
PA = CPA*PRESS 

RETURN 

END 


Z ATM0057 
Z ATM0058 
ZATM0059 
Z ATM0060 
ZATM0061 
Z ATM0062 
ZATM0063 
Z ATM0064 
Z ATM0065 
ZATM0066 
Z ATM0067 
Z ATM0068 
Z ATM0069 
Z ATM0070 
ZATM0071 
Z ATM0072 
ZATM0073 
ZATM0074 
ZATM0075 
Z ATM0076 
Z ATM0077 
Z ATM0078 
Z ATM0079 
ZATM0080 
ZATM0081 
Z ATM0082 
ZATM0083 
ZATM0084 
Z ATM0085 
Z ATM0086 
ZATM0087 


FUNCTION ARCTAN (Y,X) 


THE FORTRAN IV LIBRARY ATAN (+ OR - 
ARGUMENT WITH ITS SIGN TO GIVE THETA IN 
(-Z) QUADRANT. THE ARCTAN FUNCTION MAY 
DERIVED FROM A FRACTION SO THAT ARCTAN ( 
( ( +OR-Y=S I N ( THETA ) )/( +OR-X=COS ( THETA ) ) ) . 
GIVES THETA IN ITS PROPER QUADRANT FROM 
DEGREES. 

IF (X) 2,1,2 

ARCTAN=SIGN( 1.57079632, Y) 

GO TO 4 

ARCTAN=ATAN( Y/X ) 

IF (X) 3,1,4 

ARCT AN=ARCTAN+S I GN( 3.14159265, Y) 

RETURN 

END 


Z=TAN(THETA ) )USES A S1NGI 
THE FIRST (+Z) OR FOURTH 
BE USED IF + OR - Z IS 
Y/X) = TAN-1 

THUS THE ARCTAN ( Y/X ) 
-180 DEGREES TO +180 


Z ARC0001 
Z ARC0002 
Z ARC0003 
S1NGLEZARC0004 


Z ARC0005 
Z ARC0006 
Z ARC0007 
Z ARC0008 
Z ARC0009 
ZARC0010 
ZARC0011 
ZARC0012 
ZARC0013 
Z ARC 0014 
ZARC0015 
ZARC0016 
ZARC0017 
ZARC0018 
ZARC0019 
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SUBROUTINE BOOST ( V AR , NV AR , NK I CK S ) 

SUBROUTINE BOOST PROVIDES A TWO-DIMENSIONAL SECOND ORDER 
CURVE FIT OF BOOSTER BURNOUT CONDITIONS. THE INTERPOLATION 
EQUATION IS 

Z = A + BX + CY + DXY + EXX + FYY 
THE PARTIAL DERIVATIVES OF THE ALTITUDE, RADIAL VELOCITY, 

AND ANGULAR VELOCITY WITH RESPECT TO KICK ANGLE AND BOOSTER 
BURNING TIME ARE OBTAINED BY DIFFERENTIATING THE INTERPOLATION 
EQUATION. 

THE COEFFICIENTS ARE CALCULATED BY DETERMINANTS. 

COMMON /CSTAR/ CM A ( 1000 ) , CMB ( 1 OOO ) 

COMMON /ATABLE/ CME(8000) 

DIMENSION VAR(NVAR,NKICKS) 

A (6 ) , APTMAX ( 3 


(6 

<3 

(6 


DIMENSION 

DIMENSION CON (6 ,6 ) , I 

DIMENSION ITK (3 ),KS 

DIMENSION STB (6 ) ,V 

EQUIVALENCE ( APTMAX , CMB ( 1 26 ) ) , ( DELTB 
EQUIVALENCE (ITB ,CMB ( 123 )) , ( I TK 
EQUIVALENCE (ROA , CMB ( 062 ) ) , ( TBURN 

EQUIVALENCE (V ,CMB(154>) 

DATA (KS ( I >, 1 = 1,3 1/1,4,6/ 


B 

ITB 

PAR 


(6 
I 3 
(6 


,CME<016) ) , (DELTK ,CME(199)) 
,CMB( 120) ) , ( PAR ,CMB ( 142 ) ) 
, CMB (065) ) , (TMINST,CME(019) ) 


SET UP DETERMINANT FOR COMPUTING D. NOTE THAT 
TERMS ARE NORMALIZED TO THE DESIRED KICK ANGLE 
THE BURNOUT TIME TERMS TO THE DESIRED BURNING 
DO 1 J = 1,3 


THE KICK ANGLE 
(SEE MAINA) AND 
TIME 


ZB000001 
Z B000002 
Z B000003 
ZB000004 
ZB000005 
Z B000006 
ZB000007 
ZB000008 
Z B000009 
ZB000010 
ZB00001 1 
ZB000012 
ZB000013 
ZB000014 
ZB000015 
ZB000016 
ZB000017 
ZB000018 
ZB000019 
ZB000020 
ZB00002 1 
ZB000022 
ZB000023 
ZB000024 
Z B000025 
ZB000026 
ZB000027 
ZB000028 
Z B000029 



K = KS ( J ) 

ZB000030 


B(K,2)=APTMAX(J) /DELTK 

ZB000031 

1 

B(J,3) = (TMI NS T + FLOAT ( I TB ( J ) - 1 ) *DEL TB-TBURN ) / DELTB ZB000032 


B(2,2)=B( 1,2 ) 

ZB000033 


B ( 3, 2 ) =B (1,2) 

ZB000034 


8(5, 2) =B (4, 2) 

Z B000035 


B(4,3)=B(1,3) 

Z B000036 


B ( 6 , 3 ) =B ( 1,3) 

ZB000037 


B ( 5, 3 ) =B ( 2 , 3 ) 

ZB000038 


KA=0 

Z B000039 


DO 2 J = 1,3 

ZB000040 


J A=4-J 

ZB000041 


DO 2 K= 1 , J A 

ZB000042 


K A=K A+ 1 

ZB000043 


I (KA)=25*( ITK( J >-l ) + ITB(K) 

Z B000044 


B ( KA , 1 ) =1 .0 

ZB000045 


B(KA,4)=B(KA,2 ) #B ( K A , 3 ) 

ZB000046 


B(KA,5)=B<KA,2)**2 

Z B000047 

2 

B(KA,6)=B(KA,3)**2 

ZB000048 


lALL DETERM TO COMPUTE D 
CALL DETERM ( B ,0, 6 ,6 ) 

COMPUTE COEFFICIENTS (CON) OF INTERPOLATION EQUATION. 


Z B000049 
ZB000050 
ZB000051 
ZB000052 
ZB000053 


J1=I( 1) 


ZB000054 

DO 5 K = 

1 , NVAR 

Z B000055 

DO 3 M = 

1,6 

ZB000056 
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m 


J2= I (M) 

3 A(M)=VAR(K,J2 >-VAR(K,Jl ) 

DO 5 L = 1,6 

DO 4 J = 1,6 
STB(J)=B(J,L) 

4 B(J,L)=A(J) 

CALL DETERM(B,C0N(L,K),6»6) 

DO 5 J=1 ,6 

5 B(J,L)=STB(J) 

DO 6 K = 1 ,NVAR 

V(l) ALTITUDE 
V ( 2 ) RADIAL VELOCITY 
V ( 3 > HORIZONTAL VELOCITY 
V(K)=C0N(1,K)/D+ VARIK, J1 ) 

PAR CONTAINS DERIVATIVES 
P AR ( K , 1 ) WITH RESPECT TO BURNING TIME. 

PAR ( K , 2 ) WITH RESPECT TO KICK ANGLE. 

PAR ( K , 1 )=C0N(3»K)/D/DELTB 

6 PAR ( K , 2 ) =CON (2,K)/D/DELTK 
RAD = ROA + VI 1 ) 

DO 7 K = 1,2 

7 PAR(3,K)=PAR(3,K)/RAD-V(3)/RAD**2*PAR(1,K) 

RETURN 

END 


ZB000057 

ZB000058 
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SUBROUTINE CHECK 

SUBROUTINE CHECK COMPARES THE PROPELLANT LOADINGS OF THE 
OPTIMIZED CASE WITH PRELOADED VALUES. IF A PROPELLANT LOADING 
(FUEL) EXCEEDS ITS LIMIT (WPMAX), THE BURNING TIME IS SHORTENED 
THE TIME SUCH THAT EXACTLY THE SPECIFIED AMOUNT OF PROPELLANT 
UTILIZED AND PHASE TIME IS FIXED. 


COMMON /CSTAR/ CM A ( 1000 ) , CMB ( 1000 ) 


DIMENSION FLOMX (6 
DIMENSION NOPT (6 
DIMENSION WPMAX (6 
EQUIVALENCE (FLOMX 
EQUIVALENCE (JDATA 
EQUIVALENCE (TB 
DATA < TK ( I ) , 1=1 ,6 ) /6H 
1 SIXTH/ 

DO 2 J = 1 , L AST 


) , JEND 
) , TK 


) » FUEL (6 
),TB (6 
) 

,CMA ( 837 ) ) , (FUEL 
,CMA<925) ) , ( L AST 
,CMA ( 825) ) , (WPMAX ,CMA(855)) 


(20 

(6 


, CMA ( 87 1 ) ) , (FUELDV,CMA(878) 
,CMA(890) ) , (NOPT ,CMA(819) 


FIRST, 6HSEC0ND,6H THIRD, 6HF0URTH,6H FIFTH, 


CHECK FOR EXCESS PROPELLANT UTILIZATION BY EACH PHASE 
IF(WPMAX(J).EQ.O.O.OR.FUEL(J).LE.WPMAX(J) ) GO TO 2 

IF JDATA EQUALS THREE, THE CASE WITH THE EXCESS PROPELLANT 
HAS BEEN PRINTED. 

I F ( JDATA. NE. 3) GO TO 1 

FIX BURNING TIME OF OFFENDING PHASE 
TB( J)=WPMAX(J) /FLOMX (J ) 

WRITE (6,3 ) TK ( J ) , TB ( J ) 

SET NOPT TO ZERO FOR OFFENDING PHASE 

1 NOP T ( J ) =0 

2 CONTINUE 

3 FORMAT ( 1H0, IX, 1A6,37H STAGE BURNING TIME HAS BEEN FIXED AT, 
1 1 X » G14. 7 » 9H SECONDS.) 

RETURN 

END 
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SUBROUTINE COAST 


SUBROUTINE COAST TERMINATES A PHASE WHEN SOME DESIGNATED 
PARAMETER REACHES A DESIRED VALUE. TO ENABLE THE USER TO 
FAMILIARIZE HIMSELF WITH THE ORIGIN AND UTILITY OF THESE 
TERMINATING EQUATIONS, THE EQUATION NUMBERS FROM PAYLOAD 
OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES (NASA TN-3I21) 

BY THE AUTHORS IS PROVIDED. CAPPAD IS THE DESIRED VALUE 
WHICH CAPPIN MUST EQUAL FOR STAGE TERMINATION. IT MAY BE 
SEEN THAT IN THE AFOREMENTIONED REPORT, THE CAPPAD S 
APPEAR ON THE RIGHT SIDE OF THE EQUAL SIGNS AND THE CAPPIN 
ON THE LEFT SIDE. 

THIS ROUTINE CHECKS AT EACH INTEGRATION STEP FOR A CHANGE 
IN SIGN IN CAPPA WHERE CAPPA = CAPPIN - CAPPAD AND WHEN CAPPA 
CHANGES SIGN, COAST CONTROLS THE INTEGRATION STEP SIZE TO 
ZERO CAPPA. 


COMMON /CSTAR/ CMA ( 1 OOO ) ,CMB ( 1 OOO ) 

COMMON /RUNG/RUN( 125 ) 

DIMENSION FLOMX (6 ),FUEL (6 ) 

DIMENSION IDATA (6 ,5 ),JC0AST(6 ) 

DIMENSION PROP (6 ),S (6 ,2 ) 

DIMENSION THRUST ( 6 ),TS (6 ) 

EQUIVALENCE (CAPPA ,CMA ( 891 ) ) , ( DELT ,CMA 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


,CMA 
( ENERGY, CMA 
(FLOW ,CMA 
(G , CMA 
(I , RUN 
( JCOST , CMB 
( MODOUT , CMA 
(NOPTA ,CMB 
(PROP , CMA 
(S , CMB 
(TIME , CMA 
(V , CMA 
( ZLAM2 ,CMA 


(891 ) ) , (DELT 

(892) ) , ( ERRMXK, CMB 
(877)), (FM ,CMA 
(716) ) , ( HARD 


, CMA 
,CMB 
, CMA 
, CMA 


( 107) ) , (IDATA 
( 129) ) , (LAST 
(714) ) , ( NCUTE 
(070) ) , (NSTA6E,CMA 
(849)), (R , CMA 

(074)), (TB , CMA 
(409)), (TS ,CMA 
(889) ) , (VELEX ,CMA 
(407) ) , (ZLAM3 ,CMA 


, HARD 
, NOPT 
,TB 

( 701 ) ) 
(054) ) 
(715) ) 
( 843 ) ) 
(086) ) 
(890) ) 
(893) ) 
(710) ) 
(402) ) 
(825) ) 
(932 ) ) 
(870) ) 
(408) ) 


(6 ) 

(6 ) 

( 6 ) 

, ( DELTAV,CMA(861 ) ) 
, (FLOMX , CMA ( 837 ) ) 
, ( FUEL ,CMA ( 871 ) ) 
,<H2 , RUN (106)) 

, ( JCOAST,CMB( 130) ) 
, ( MASH , CMB ( 064 ) ) 
, ( NOPT ,CMA (819) ) 
, (OMEGA , CMA ( 405 ) ) 
, ( RMASS , CMA ( 40 1 ) ) 
, (THRUST, CMA( 831 ) ) 
,(U ,CMA ( 404 ) ) 

, ( Z L AM 1 , CMA ( 406 ) ) 
, ( ZL AM4 ,CMA ( 884 ) ) 


DETERMINE PROPER EQUATION FOR TERMINATING PHASE USING INFORMATION 
COLLECTED IN XOLOAD. EVALUATE CONSTANT TERMS IN THE PROPER 
EQUATION. 

GO TO (28, 11, 11, 12, 14, 1,15, 16, 13), JCOST 
1 KA=JCOAST ( NST AGE ) 

K = 0 

IF(KA.NE.O) GO TO 3 

IF(NSTAGE. EO. LAST. AND. NCUTE. EQ.l) GO TO 2 

JC0ST=1 

RETURN 


SET CAPPAD EQUAL TO THE DESIRED ENERGY 
2 CAPPAD=ENERGY 
JC05T=7 

TS (NST AGE ) =TS ( NSTAGE-1 ) +10000.0 


GO TO 10 

3 GO TO (4,6) , K A 

4 IF(NSTAGE.EO.LAST) GO TO 5 
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RIGHT HAND SIDE OF EQUATION 47 

CAPPAD=(1.0+PR0P(NSTAGE) )/ PROP ( NST AGE )*< S ( NST AGE , 1 ) -S ( NOPTA , 2 ) / 

1 ( 1 .O+PROPINOPTA) I-SADDA (NOPTA+1 ,NSTAGE-1 ) I 
JC0ST=2 

GO TO 10 

RIGHT HAND SIDE OF EQUATION 50 

5 CAPPAD=-< ( 1 .O+PROP ( LAST ) ) *E XP ( -DELTA V/ VEL EX ) ) / PROP ( L AST ) * ( S ( NOPT A , 
12 )/( 1.0+ PROP (NOPT A) ) -S < LAS T, 1 ) +S ADDA ( NOPT A+1,L AST- 1) ) 

JCQST=3 

GO TO 10 

6 IF( IDATA(NSTAGE+1 ,5) .EO.l ) GOTO 9 
IF(NSTAGE. GT. NOPTA+1 ) GO TO 7 

RIGHT HAND SIDE OF EQUATION 48B 
C A PPAD=0 • 0 
JCOST = 8 

GO TO 10 

RIGHT HAND SIDE OF EQUATION 48A 

7 CAPPAD=SADDB( 1, NOPTA+1 , NST AGE )-S ADDS ( 2 , NOPTA+1 , NST AGE- 1 ) 
1-S(N0PTA*2)/(1.0+PR0P( NOPT A ) ) 

IF(FLOMX(NSTAGE) .EQ.O.O) GO TO 8 

JC0ST=4 

GO TO 10 

8 JCOST = 9 
GO TO 10 

RIGHT HAND SIDE OF EQUATION 41C 

9 C A PPAD=0 • 0 

JC0ST=5 

10 GO TO (11, 11, 11, 12, 14, 15, 15, 16, 13), JCOST 

LEFT HAND SIDE OF EQUATION 50 

11 C APP I N=SST AGE (THRUST (NST AGE) ,FLOW,RMASS) 

GO TO 17 

LEFT HAND SIDE OF EQUATION 48A 

12 CAPP I N= ( ( FM/R**2-0MEGA**2*R ) *Z L AM 1 + 2 . 0*U*0MEGA*ZL AM2-U*Z L AM3 
1-0MEGA*ZLAM4)/ ( 1 .0/ FLOMX ( NSTAGE ) -1 . 0/ FLOMX ( NST AGE+1 ) )-G*SORT 

1 ( ZLAM1**2+ZLAM2**2 >*( THRUST (NSTAGE )/RMASS/ FLOMX (NSTAGE )+THRUST 
1 (NS TAGE+1 )/(RMASS-HARD( NSTAGE) -PROP (NST AGE)* (TIME-TS(NST AGE-1 ) )* 

1 FLOW) /FLOMX (NST AGE+1 ) ) 

GO TO 17 

LEFT HAND SIDE OF EQUATION 48A WHEN FLOW = 0 

13 C APP I N=-SST AGE ( THRUST (NST AGE+1 ) , FLOMX ( NSTAGE+ 1 ) , RMASS-HARD ( NSTAGE 


1 ) ) 


GO TO 17 
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LEFT HAND SIDE OF EQUATION 41C 

14 CAPP I N= ( FM/R**2-OMEGA**2*R ) *Z L AM1+2 . 0*U*0MEGA*ZL AM2-U*Z LAM3-0MEG A 
1*ZLAM4 


C 

C 


C 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


GO TO 17 

CALCULATE ENERGY 
15 CAPPIN=V**2/2.0-FM/R 

GO TO 17 


C 

C 


LEFT HAND SIDE OF EQUATION 48B 

16 CA PPIN=S STAG E ( THRUST (NS TAGE+1 ) ,FLOMX (NSTAGE+1 ) ,RMASS-HARD( NS T AGE ) 
1PR0P(NSTAGE)*(TIME-TS(NSTAGE-1))>!=FL0W)-SSTAGE(THRUST(NSTAGE), 

1FLOW, RMASS ) / ( 1 .O+PROP ( NOPTA ) ) 

COMPUTE CAPPA AND DCAPPA 

17 CAPPA=CAPP IN-CAPPAD 

DC APPA= ( C APPA-C APPA I ) /DEL T 
IF(K.NE.O) GOTO 18 
CAPPA I =CAPPA 
K = 1 

18 GO TO (19,20, 28, 28), I 

CHECK FOR CAPPA SIGN CHANGE 

19 IF(CAPPA*CAPPAI.LT.O.O) GOTO 24 

CHECK FOR DIVERGING CAPPA 
I F ( ABS(CAPPA) .LE.ABSfCAPPAI ) ) GO TO 27 

DELT = 0 TERMINATES INTEGRATION 
DEL T = 0. 0 

I = 2 CAUSES CONTROL TO BYPASS STEP-SIZE CONTROL IN STEP 
1=2 

MASH = 1 IS A FLAG TO MAIN THAT THE PROPOSED CASE IS IMPOSSIBLE. 

MASH=1 

RETURN 

CHECK FOR CAPPA WITHIN CONVERGENCE TOLERANCE 

20 DELCAP=DELT3*DCAPPA 

IF (DELCAP.EO.O.O) GO TO 21 
PERRK=CAPPA/DELCAP 
IF(ABS(PERRK).GE.ERRMXK) GO TO 25 

CAPPA WITHIN TOLERANCE. SET UP FOR CONTINUING THE PROBLEM. 

21 K=0 

I EQUAL TO FOUR CAUSES CONTROL OF STEP-SIZE TO REVERT TO STEP 
I =4 

SEE RUNGEK FOR DESCRIPTION OF H2 
H2 = T I ME — TS TO 

RESET DELT 
DELT=DELT3 
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C RESET JCOST FOR NEXT PHASE 

JC0ST=6 

C SET TS TO ENABLE STEP TO INCREMENT NSTAGE 

TS(NSTAGE)=TIME 

COMPUTE PHASE BURNING TIME 
TB ( NSTAGE ) =TS (NST AGE J-TSINST AGE- 1 ) 

JA=NSTAGE+1 

COMPUTE PROPELLANT LOADING FOR PHASE 
FUEL ( NST AGE )=TB( NSTAGE INFLOW 
IFINSTAGE.EO.LAST) RETURN 

00 22 J = JA , LAST 

JCOAST(J) NOT EQUAL TO ZERO IMPLIES THAT ANOTHER PHASE WILL BE 
TERMINATED BY COAST. 

I F ( JCOASTI J) .NE.O) GO TO 23 

COMPUTE PROPELLANT LOADINGS FOR REMAINING PHASES 
FUEL(J)=TB(J)*FLOMX(J) 

SET TS S FOR REMAINING PHASES 

22 TS(J)=TS(J-1 ) +TB ( J ) 

RETURN 

SET TS VERY LARGE FOR NEXT PHASE TERMINATED BY COAST 

23 TS( J)=TS(J-1)+10000.0 
RETURN 

1 EQUAL TO TWO CAUSES STEP TO RELINQUISH CONTROL OF STEP-SIZE 
24- I = 2 

STORE DATA FOR COMPUTING H2 WHEN CAPPA IS ZEROED. 

TSTO=T I ME-H2 

STORE DELT 
DELT3=H2 

COMPUTE DELT TO ZERO CAPPA 

25 DELT=CAPPA/ (CAPPA I-CAPPA ) *DELT 

26 I F ( ABS ( DELT ) .LT . ABS ( DEL T3 ) ) GO TO 27 
DELT=DELT/2.0 
GO TO 27 

STORE CAPPA FOR LAST INTEGRATION STEP. 

27 CAPPA I =CAPPA 

2 8 RETURN 
END 
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SUBROUTINE COEFNT 


THIS SUBROUTINE COMPUTES COEFFICIENTS OF SECOND ORDER 
POLYNOMIALS USED TO FIT VARIOUS FUNCTION CURVES SUCH AS CD VS 
MACH NUMBER. DATA IS INPUT AS A TWO COLUMN ARRAY. THE FIRST 
COLUMN IS THE INDEPENDENT VARIABLE (MACH) AND THE SECOND 
COLUMN THE CORRESPONDING DEPENDENT VALUE (CD). ALL SETS OF 
DATA POINTS ARE LOADED SEQUENTIALLY AND IDENTIFIED BY NSETS(K) 
WHICH IS THE NUMBER OF SETS OF THREE DATA POINTS NEEDED 
TO SOLVE AN EQUATION OF THE FORM CD = A + BM + CMM. 


NUMBER OF POINTS MUST BE ODD 

ICC HAS POSITIONS OF BEGINNING OF ARRAY IN COEFN. 

NSETS REFERS TO THE NUMBER OF SETS AND IT EQUALS 
(NUMBER OF POINTS -0NE)/2.0. 

NSAVE = POSITIONS IN COEFN FOR THE SETS. 

VARIND AND VARDEP ARE LOADED CONSECUTIVELY. 

STORAGE IN COEFN MUST ALLOT FOUR ^NS FT S ( N ) + 1 FOR EACH SET. 


COMMON /CSTAR/ CMA ( 1 OOO ) , CMB < 1 OOO ) 


DIMENSION COEFN (500 ),JEND 

DIMENSION NSETS (20 ) ,V 

EQUIVALENCE (COEFN ,CMB(501>), 
EQUIVALENCE (V ,CMB<301)) 

DATA JS/O/ 


(20 >, NSAVE (20 

( 100,2 ) 

NSAVE ,CMB(241 )), (NSETS 


) 

, CMB ( 22 1 ) ) 


J = 1 

DO 2 K=1 ,20 
I =NSE TS ( K ) 

I F ( I .EO.O) GO TO 3 
N=NSAVE(K) 

DO 1 L = 1 , I 


s= 

V ( J 

+1,1 )*V(J+2, 

1 )**2 

-V ( 

J+2,1 )*V( 

J + l, 

1 ) 

4 & 2 

T = 

V ( J 

+2,1)*V( J,l> 

4S2-V 

( J, 

1 

>*V< J+2, 

1 ) **2 


U= 

V ( J 

,1)*V(J+1,1) 

**2-V 

( J + 

1 

» 1 ) *V ( J » 

1 )**2 


n= 

S + T 

+u 








COEFN 

( N ) = V ( J , 1 ) 








COEFN 

(N+l >=(V( J,2 

)*S + V 

( J + 

1 

, 2 ) * T+ V ( 

J + 2, 

2 ) 

*U)/D 

COEFN 

( N+2 ) = ( V ( J , 2 

)*( V< 

J + l 

, 

1 )**2-V( 

J+2, 

1 ) 

**2)+V( J+1,2)*(V(J+2,1>** 

12- 

V ( J 

,1 ) =*==42 ) + V< J + 2, 2)4 

( V < 

J 

, 1 )**2-V 

( J+l 

,1 

>**2 ) ) /D 


C0EFN(N+3)=(V(J,2)#(V(J+2,1)-V(J+1»1) ) +V < J+l , 2 )* ( V < J , 1 ) -V ( J+2 , 1 ) ) 
1V< J+2,2 )*( V( J+l , 1 )-V( J, 1 ) ) )/D 
J = J + 2 
N=N+4 

C0EFN(N)=V(J,1 ) *1 0 . 0 
J=J + 1 
J END( K ) =N 
JE = N — 1 
DO 4 K = 1 ,20 

IF(NSETS(K).EO.O) RETURN 
J S = NS AV E ( K ) 

J E = J END ( K ) 

NSETS ( K ) =0 
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WRITE < 6 » 6 ) JS,JE 

WRITE (6,7 ) (CUEEN(M) ,M=JS,JE) 

4 WR I TE ( 6 , 5 ) (COEFN(M) ,M=JS,JE) 

5 F0RMAT(2H$0G14.7,1H,,G14.7» 1H,,GI4.7,1H,,G14.7,3H,$S) 

6 FORMAT ( 13HOCOEFFICIENTSI4, IH, 13) 

7 FORMAT ( 6G20.8 ) 

RETURN 

END 
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SUBROUTINE CONEVL <FLOW,N) 

SUBROUTINE CONEVL COMPUTES THE CONSTANT IN EQUATION 
II WHEN THE THRUST IS EQUAL TO ZERO. THE EQUATION APPEARS 
AGAIN IN 41C. CONST ( N , 1 ) IS USED IN FINAL AS A FINAL 
CONDITION FOR AN OPTIMUM COAST. CONST(N,2) IS THE SQUARE 
ROOT OF THE SUM OF THE SQUARES OF THE TERMS IN CONST(N,l) 

AND IS USED IN SCOMP. 

COMMON /CSTAR/ CMA ( 1000 ) ,CMB ( 1000 > 

DIMENSION CONST (5 ,2 ) 

EQUIVALENCE (CONST ,CMA ( 894 ) ) , ( FM ,CMA ( 715 ) ) , ( G ,CMA<716)> 

EQUIVALENCE (OMEGA , CMA ( 405 ) ) , ( R , CMA ( 402 ) ) , ( U ,CMA(404)) 

EQUIVALENCE ( Z L AM 1 , CMA ( 406 ) ) , ( Z L AM2 , CMA ( 407 ) > , ( Z L AM3 ,CMA(408)» 

EQUIVALENCE (ZLAM4 ,CMA<884)) 

IF ( FLOW. EQ. 0.0) GO TO 1 
CONST ( N, 1 ) =0.0 
CONST ( N , 2 ) =0 . 0 
GO TO 2 

1 C0NST(N,1)= ( FM/R**2-OMEGA**2*R ) *ZLAMl+2.0*U*0MEGA*ZLAM2-U* 
1ZLAM3-0MEGA*ZLAM4 

CONST (N,2 )=SQRT ( ( ( FM/ R**2-0MEGA**2*R ) *Z L AMI ) **2+ ( 2 . 0*U*0MEGA* 
1ZLAM2)**2+(U*ZLAM3)**2+(0MEGA*ZLAM4)**2) 

2 RETURN 
END 


ZCONOOO 1 
ZC0N0002 
ZCON0003 
ZC0N0004 
ZCON0005 
ZC0N0006 
ZCON0007 
ZC0N0008 
ZC0N0009 
ZCONOO 1 0 
ZC0N001 1 
ZCONOO 1 2 
ZC0N0013 
ZCONOO 14 
ZCONOO 1 5 
ZC0N0016 
ZCONOO 1 7 
ZCONOO 1 8 
ZC0N0019 
ZC0N0020 
ZC0N002 1 
ZC0N0022 
ZC0N0023 
ZC0N0024 
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c 

c 

c 

c 
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c 

c 

c 
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c 

c 
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SUBROUTINE DAMODE ( N ,OM I T ) 


ZDAMOOOl 


SUBROUTINE DAMODE CONVERTS THE MODE INFORMATION WHICH 
ENTERS THROUGH THE INPUT ROUTINE INTO MODOUT AND MODS WHICH 
ARE USED IN STEP (SEE STEP). ALSO TMIN AND STEPS ACQUIRE 
PROPER VALUES FROM INPUT DATA. THE INITIAL DELT IS COMPUTED 
IN THIS ROUTINE. THIS ROUTINE IS APPLICABLE TO THE UPPER 
PHASES ONLY. 


COMMON /CSTAR/ CMA(IOOO) 
DIMENSION DELMX (3 
DIMENSION TMIN1 (3 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
INTEGER STE 


( DELMAX ,CMA ( 
( DELTST . CMA ( 
(MODOUT, CMA( 
( NST AGE , CMA ( 
(TIME , CMA ( 
(TS ,CMA( 
S, STEP, OMIT 


,cmb 

(1000) 

) .MODE 

(3 

) , T S 


(6 

702 ) 

), 

(DELMX 

931 ) 

) , 

(K 

714) 

) , 

( MODS 

710) 

), 

(STEP 

609) 

> , 

(TMIN 

932 ) 

) 



) , STEP (3 ) 

) 


,CMB( 163) 
, CMB (182) 
, CMA (712 ) 
,CMB( 166) 
, CMA ( 703 ) 


) , ( DELT »CMA ( 701 ) ) 
) , ( MODE , CMB ( 1 60 ) ) 
) , (NPRINT ,CMB( 181 ) ) 
), (STEPS , CMA ( 704 ) ) 
) , ( TM I N1 ,CMB ( 169 ) ) 


K IS USED IN STEP AS AN INDEX OF NOUT 
K = MINO ( N, 2 ) 


ZDAM0002 
ZDAM0003 
ZDAM0004 
ZDAM0005 
Z DAM0006 
ZDAM0007 
ZDAM0008 
ZDAM0009 
ZDAM0010 
ZDAM001 1 
ZDAM0012 
ZDAMOO 1 3 
ZDAM0014 
ZDAMOO 1 5 
ZDAMOO 1 6 
ZDAMOO 17 
ZDAM0018 
ZDAM0019 
ZDAM0020 
ZDAM002 1 
Z DAM0022 


ZDAM0023 

ZDAM0024 

NPRINT NOT EQUAL TO ZERO CAUSES THE PERTURBATIONS TO BE ZDAM0025 

PRINTED. OMIT ASSUMES VALUES FROM ONE TO SIX. ZDAM0026 

IF(NPRINT.EO.O. AND. OMIT. NE.l) GO TO 2 ZDAM0027 

ZDAM0028 

ZDAM0029 

SET MODOUT ZDAM0030 

MODOUT = MODE ( N ) / 1 0 ZDAM0031 


SET MODS 

MODS=MOD( MODE ( N ) ,10) 


SET DELMAX 
DELMAX = DELMX ( N ) 

SET MODOUT, TMIN, AND STEPS FOR MODE = 71, 72, 73, OR 74 
IF ( MODOUT. NE.7) GO TO 1 
MODOUT = 1 

TM I N=OELMAX-AMOD (TIME+DELMAX, DELMAX ) 

IF( TMIN. EQ. 0.0. OR. TMIN. LT. ( .1 ) * DELMAX ) TM I N=TM I N+DELMAX 

TMIN=TIME+TMIN 

STEPS=1000 

GO TO 3 

SET STEPS 
STEPS = STEP ( N ) 

SET TMIN 

TMIN = TMINKN) 

GO TO 3 


ZDAM0032 

ZDAM0033 

ZDAM0034 

ZDAM0035 

ZDAM0036 

ZDAM0037 

ZDAM0038 

ZDAM0039 

ZDAM0040 

ZDAM0041 

ZDAM0042 

ZDAM0043 

ZDAM0044 

ZDAM0045 

ZDAM0046 

ZDAM0047 

ZDAM0048 

ZDAM0049 

Z DAM0050 

ZDAM005 1 

Z DAM0052 

ZDAM0053 

ZDAM0054 

ZDAM0055 

ZDAM0056 
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ZDAM0057 

MODOUT SET EQUAL TO SIX WHEN THE PERTURBATIONS ARE NOT PRINTED. ZDAM0058 

2 MODOUT = 6 ZDAM0059 

Z DAM0060 

SET DELT ZDAM0061 

3 DELT=AMIN1(DELTST,TS(NSTAGE)-TIME> ZDAM0062 

IFIMODOUT. EO.l. AND. DELT. GT. (TMIN-TIME) ) DELT = (TMIN-TIME) ZDAM0063 

IF( (MODOUT. EO. 2. OR. MODOUT. EO. 3). AND. DELT. GT.DELMAX) DELT = DELMAX ZDAM0064 

C Z DAM0065 

RETURN Z DAM0066 

END Z DAM0067 
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DATATM ZGDA0001 

BLOCK DATA Z6DA0002 

Z GDA0003 

DATATM CONTAINS THE CONSTANTS ATMOS USES TO COMPUTE PRESSURE ZGDA0004 


AND VELOCITY OF SOUND. 

A POLYNOMIAL COEFFICIENTS ( PAFB FIT) 

AL TEMPERATURE GRADIENTS AND/OR FLAGS ( ARDC ) 

TARDC TEMP. AND BASE OF INTERVAL (ARDC) 

HARDC ALT. AT BASE OF INTERVAL (ARDC) 

DENARD DENSITY AT BASE OF INTERVAL (ARDC) 

YPAT ALT AT BASE OF INTERVAL (PAFB) 

ALTPAT SWITCH ALT PAFB TO ARDC 

GMOR GRAV. CONST ( GM ) DIV BY GAS CONST (R) 

ONEBYR RATIO 1.0 AND R 

PI TEN NEWT0NS/CM**2 , REF PAFB PA 

DENS 1 1000 NEWT/CM**3, REF PAFB DENSITY 

PAR DC PRESSURE AT BASE.... 

COMMON /SCHMOO/ A , AL , HARDC , P ARDC , DENAR D , TAR DC , YPAT , AL TP AT , 
1GM0R,0NEBYR,P1,DENS1 

ATMOSPHERIC COEFFICIENTS USED BY GD/A IN SIMULATING 
PATRICK REFERENCE ATMOSPHERE (BELOW 47.3904KM.) AND THE 1959 
ARDC MODEL (ABOVE 47.3904). REF. GDA63-0439-1 AC-4 HDBK . 

DIMENSION 

1A(6,4,3), HARDC ( 10 ) t AL(10), TARDC(IO), DENARD(IO), PARDC(IO) 
DIMENSION YPAT (4) 


ZGDA0005 
Z GDA0006 
ZGDA0007 
ZGDA0008 
ZGDA0009 
ZGDA0010 
ZGDA0011 
ZGDA0012 
ZGDA0013 
ZGDA0014 
ZGDA0015 
ZGDA0016 
ZGDAOO 1 7 
ZGDA0018 
ZGDA0019 
ZGDA0020 
ZGDA0021 
ZGDA0022 
ZGDA0023 
ZGDA0024 
ZGDA0025 
ZGDA0026 
Z GDA0027 
ZGDA0028 
ZGDA0029 
ZGDA0030 
ZGDA0031 
ZGDA0032 


DATA 

4A/1. 6871 582 E-2,-1. 1425 176E-4, -1.36 12327E-9, 7. 3624145E-14, 

5-1. 080031 5E- 17, 3. 3046432 E-22,-7. 991 0777 E-2, -8. 104643 8E-5, -5. 552238 ZGDA0033 
63E-9,3.1116969E-13,-1.6687827E-17,3.8319351E— 22,9.8414277E-1,-2.69ZGDA0034 
77691 7E-4, 8. 5527541 E-9 , -3 . 962 0263E- 1 3, 1 . 0 14647 1 E-l 7 , - 1 . 02643 1 8E-22 , ZGDA0035 
8-5.07738 33E-1, -9. 8961 948E-5, -9.2758 563E-1 1 ,-l .02 70700E-1 3,3. 172489ZGDA0036 
92E— 18,— 2.6699639E-23, ZGDA0037 

11 .33021 17E-2 »-8.8502064E-5,-4.2143056E-9,5.9517557E-13, -3.97447 89 E ZGDAOO 3 8 
2-1 7, 7. 8 771 2 73E-22, 1.2667 122 E-l ,- 1 . 3373 1 47 E-4 , 2 . 066 737 1 E-9 , 2 . 3396 1 OZ GDA0039 
39E-13,-3.2562503E-17,7.9035209E-22,9.2751266E-l,-1.4349679E-4,-2.8ZGDA0040 


4271736E-9,4.7480092E-14, 1 . 8 863246E- 1 8 , -4 . 27024 1 1 E-23 , 8 . 3777777E-5 , Z GDA004 1 
5-1 .5345007 E-4, 4. 5202979 E-9, -2 .6563 772 E-l 3, 5. 5558 369E-1 8,-3. 8 876587ZGDA0042 
6E-23, Z GDA0043 

72.9667877E2,-6.7731001E-3,8.4619805E-7,-l . 7004049E-10 , 1 . 1451454E-1 ZGDA0044 
84,— 2.4898788E— 19, 2. 689215 1E2 ,4 . 3075352 E-3 , -8 . 9 1 59672 E-7 , -2 . 892979 1 Z GDA0045 
9E-11 ,5.0724856E-15,-1.1490372E-19,3.7064557E2,-3.2858965E-2,2.0645ZGDA0046 
1636E— 6,-4.3283944E-ll , -5 . 750 7242 E-l 7, 8 . 29245 83E-2 1 , 5 . 882 58 1 4E2 ,— 2 . Z GDA0047 
2751 5685E-2, 1.65936 11 E-7, 3.041 63 88E-1 1,-8. 02 64768 E-l 6, 6. 01 0202 E-2 1 / ZGDA0048 
DATA Z GDA0049 

1AL/0.0,-. 0045, 0.0, .0040, .0200, . 01 00 , . 0050 , 3* . 0050/ , ZGDAOO 50 

2TARDC/282.66,282.66, 165.66,165.66,225.66,1325.66,1425.66,1575.66, ZGDA0051 

3 2*0.0/ , ZGDA0052 

4H ARDC/ 47000. ,53000. ,79000. ,90000. , 105000. , 1 60000. , 1 70000 ., 200000 ., Z GDA005 3 
5 2.0E06,1.0E07/, ZGDA0054 

6DENARD/ 1.4851 E-3, 7. 1944E-4, 2.1 22 E-5, 2. 194E-6, 1.141 E-7, 9.522 E-6, ZGDA0055 

7 6.906E-6,3.153E-10,2*0.0/, ZGDA0056 
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1YP AT/ 108 32.1, 178 53. 3, 2 856 1.8, 47390.4/ t ALT PAT M7 390.4/ , 

2GM0R ,0NEBYR/ .34141626E-1, .1202734 E-3/ , 

5P1 , DENS 1/101 97. 162,0.1190934/, 

8PARDC/1 .2283E01, 5.9477, 1 . 029E-1 , 1 .066E-2 , 7.618 E-4, 3.691 E-5, 
9 2.880E-5,1.454E-5,2*0.0/ 

END 


ZGDA0057 
ZGDA0058 
Z GDA0059 
ZGDA0060 
ZGDA0061 
ZGDA0062 


SUBROUTINE GUESS ZGUE0001 

ZGUE0002 

SUBROUTINE GUESS IS A DUMMY ROUTINE CALLED AT THE ZGUE0003 

BEGINNING OF EACH PROBLEM AND WAS PLACED THERE FOR ZGUE0004 

PREPARING GUESSES FOR THE INITIAL CONDITIONS BASED ON ZGUE0005 

PREVIOUSLY CONVERGED CASES. ZGUE0006 

Z GUE0007 

RETURN ZGUE0008 

END ZGUE0009 
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DATAB 

DATAB IS A BLOCK DATA ROUTINE CONTAINING THE CONSTANTS FOR 
THE PROGRAM. 


BLOCK DATA 
DATAB 

COMMON/ ATABL E/CME ( 8000 ) 
COMMON /CSTAR/ CMA(IOOO). 


CMB(IOOO) 


ZDATOOO 1 
ZDAT0002 
Z DAT0003 
ZDAT0004 
ZDAT0005 
ZDAT0006 
ZDAT0007 
ZDAT0008 


DIMENSION 

ANGLES (4 

), DELMX 

(3 

) , DELMXB ( 2 

) 

ZDAT0009 

DIMENSION 

ERROR 

(2 

) , ICC 

(20 

) , MODE 

(3 

) 

ZDAT0010 

DIMENSION 

MODEB 

(2 

) , NSAVE 

(20 

) , PERB 

(2 

) 

ZDAT001 1 

DIMENSION 

STEP 

(3 

), STEPB 

<2 

), TMINB 

(2 

) 

ZDAT0012 

DIMENSION 

TMIN1 

(3 

) , TOL 

(5 , 

2 ) 



ZDATOO 1 3 

EQUIVALENCE (A 


, CMA (813) ), (ANGLES 

,CMA ( 786 ) ) , 

( ASTART 

, CMA ( 798 ) ) 

ZDAT0014 

EQUIVALENCE (B 


,CMa ( 814 ) ) , (CLEAR 

, CMA ( 930 ) ), 

(CMAX 

,CMA ( 928 ) ) 

ZDATOO 1 5 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( CONM ,CMA<717) ),(CONN , CMA < 71 8 ) ) , ( DELMX ,CMB(163)> 
( DELMXB ,CMB( 174) ) , { DEL TBT , CMA ( 803 ) ) , { DEL TK T ,CMB ( 058 ) ) 
(DELTST,CMA(931 ) ) , (DTIME , CMA < 509 > > , ( EREF ,CMA(713>) 
( ERLIMT,CMA (706) ) , (ERR ,CMB(041 ) ) , ( ERRMXK ,CMB ( 054 ) ) 


(ERROR * CMB ( 042 ) > , ( EST AR T , CMA ( 795 ) ),(FM 
(G ,CMA( 716) ) , ( ICC t CMB(201> ) , ( IKICK 

(IMODE ,CMB(061 ) ) , ( JKICK , CMB ( 063 ) ) , ( L AS T 
( L ASTI , CMA (753) ), (MODE , CMB < 1 60 > ) , ( MODEB 
(MODEC ,CMB( 180) ) , (NDAMP , CMA ( 926 ) ) , ( NDUMP 
(NEO * CMA ( 709 ) ) , ( NF I NAL , CMA ( 879 ) ) , ( NPR I NT ,CMB ( 1 8 1 ) ) 
( NSAVE ,CMB(241 ) ) , (NSHOT , CMA ( 929 ) ) , ( NST ,CMA(708)) 
( NVAR * CMB ( 073 ) ) , (OBLATD,CMA ( 8 1 6 ) ) , ( OBL ATH ,CM A < 8 1 7 ) ) 
(OBLATJ,CMA(818) ) , < OBL ATN, CMA < 8 1 5 ) ) 

(PERIOD, CMA (9 10)), (RERUN ,CMA(927) ) 

(RO ,CMA ( 904 ) ) , ( ROA ,CMB(062)) 

( STEPB ,CMB( 176) ) , ( STEPMX ,CMA ( 705 ) ) , ( TKT I ME ,CMA ( 804 ) ) 
(TMINB ,CMB( 178 ) ) , ( TMIN1 , CMB ( 169 ) ) , ( TOL ,CMB(044!) 
( TSTART ,CMA ( 796) ) ,( VST ART , CMA ( 797 ) ) , ( ZLAMO 
(ZLAM4 ,CMA ( 884 ) ) 


, CMA (715) ) 
,CME ( 200 ) ) 
, CMA (711) ) 
,CMB( 172 ) ) 
, CMB ( 057 ) ) 


( PERB , CMB ( 055 ) ) 
(REV0LV,CMA(799) ) 
(STEP , CMB ( 1 66 ) ) 


»CMA ( 883 ) ) 


INTEGER CMAX, STEP, STEPMX, CLEAR, STEPB, RERUN 
DATA 

1A/20925732.0/, 

1( ANGLES ( I ), 1=1,2 )/28.31 0293,279. 461 759/, 
1ASTART/0.0/ , 

IB/20855568.0/ , 

1CLEAR/1/, 

1CMAX/20/ , 

1C0NM/3. 2808398/, 

1C0NN/0. 22481905/ 

DATA 

1 ( DEL MX ( I ), 1=1,3 )/3*10.0/, 

1 ( DELMXB ( I), 1=1, 2)/10. 0,10.0/, 

1DELTBT/2 .0/ , 

1DELTKT/ . 1 / , 

1DELTST/10.0/, 

IDT I ME /l.O/, 

1EREF/1.E-05/, 

1ERLIMT/3.0E-05/, 

1ERR/1.E-04/, 

1ERRMXK/1 .0E-06/, 

1 ( ERROR ( I ) , 1=1,2 )/l.E-04,l.E-03/, 


Z DAT 0016 
ZDATOO 1 7 
ZDAT0018 
ZDA TOO 19 
Z DAT0020 
ZDAT0021 
Z DAT0022 
ZDAT0023 
Z DAT 0024 
ZDAT0025 
Z DAT0026 
ZDAT0027 
Z DAT 002 8 
ZDAT0029 
ZDAT0030 
ZDAT003 1 
Z DAT0032 
ZDAT0033 
Z DAT0034 
ZDAT0035 
ZDAT0036 
ZDAT0037 
Z DAT0038 
ZDAT0039 
Z DAT0040 
ZDAT004 1 
Z DAT0042 
Z DAT0043 
Z DAT0044 
ZDAT0045 
Z DAT0046 
ZDAT0047 
ZDAT0048 
ZDAT0049 
ZDAT0050 
ZDAT005 1 
Z DAT0052 
ZDAT0053 
Z DAT0054 
ZDAT0055 
Z DAT 0056 
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1ESTART/90.0/ 

DATA 

1 FM/ 1 . 4076539 E+ 16 / , 

1G/ 32.174/* 

I ICC ( 1 ) / 1 ✓ , 

1 tKICK/0/ , 

I I MODE/ 2 / » 

1JKICK/1/ , 

1LAST/5/, 

1LAST1/1/, 

1 ( MODE ( I), 1=1, 31/61,51,61/, 
1( MODES ( I),I=1,2)/61,61/, 
1M0DEC/2/, 

1NDAMP/5/ , 

1NDUMP/1/, 

INF INAL/1/ t 
1NEQ/9/ , 

1NPRINT/0/ , 

INSAVE ( 1 ) / 1 / , 

1NSH0T/0/, 

INST/ 1 / 

DATA 

INVAR/ 3/ , 

10BLATD/7.875E-6/, 

10BLATH/— 5. 75E— 6/ , 
10BLATJ/1.62345E-3/, 
10BLATN/1 .0/ , 
l(PERBU) »J=l*2)/.5*.8/» 

1PER I 00/0.0/ » 

1RERUN/0/ , 

1REV0LV/7.29211512E-05)/ , 
1R0/20.90989E+6/ , 

1R0A/ 2 0969 890.0/ , 

1 ( STEP ( I ) , 1=1 ,3 )/3*l/, 

1 (STEPBI I ) , 1=1 »2)/l,l/» 
1STEPMX/200/, 

1TKT1 ME/15.0/, 

1 < TM I NB(I ), 1 = 1,2 )/2. 0,2.0/, 

1 ( TMIN1 (I) ,1=1,3)/ 3*0.0/ 

DATA 

1 ( TOL (I , 1 ) , I = 1 , 5 ) /5* 1 . E-06/ , 
1 ( TOL ( 1,2) ,1=1,5 )/5*l.E-03/, 
1TSTART /O .0/ , 

1VST ART/0.0/ , 

1ZLAM0/1 .0/ , 

1ZLAM4/0.0/ 

END 


ZDAT0057 
Z DAT 005 8 
Z DAT0059 
Z DAT 0060 
ZDAT0061 
Z DAT 0062 
ZDAT0063 
ZDAT0064 
ZDAT0065 
Z DAT 0066 
ZDAT0067 
ZDAT0068 
ZDAT0069 
ZDAT0070 
ZDAT0071 
ZDAT0072 
ZDAT0073 
Z DAT007A- 
Z DAT0075 
Z DAT0076 
ZDAT0077 
Z DAT0078 
ZDAT0079 
Z DAT0080 
ZDAT0081 
Z DAT 0082 
ZDAT0083 
ZDAT0084 
ZDAT0085 
ZDAT0086 
ZDAT0087 
Z DAT0088 
ZDAT0089 
ZDAT0090 
ZDAT009 1 
Z DAT 0092 
ZDAT0093 
Z DAT 0094 
ZDAT0095 
Z DAT 0096 
ZDAT0097 
ZDAT0098 
Z DAT0099 
ZDAT0100 
ZDAT010 1 
Z DAT 0102 
ZDAT0103 
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SUBROUTINE DETERM ( A , D , N , M ) 

DETERM COMPUTES THE VALUE OF DETERMINANTS. 

COMMON/ I NVDET/F ( 10, 10) 

DIMENSION A(M,M) 

NA=N- 1 

DO 1 I = 1,N 
DO 1 J = 1,N 

1 F( I ,J )=A( I ,J ) 

DO 5 L = 1 * NA 
L A=L+ 1 

IF(F(L,L).NE.O.O) GO TO A 
DO 3 l = LA,N 
I F ( F ( I ,L ) .EO.O.OIGO TO 3 
DO 2 J =L , N 
Z=F(L,J ) 

F(L,J )=F( I ,J ) 

2 F ( I,J)=-Z 
GO TO 4 

3 CONTINUE 
D=0 .0 
RETURN 

4 DO 5 I = LA,N 
G=F ( I,L)/F(L,L> 

DO 5 J = LA ,N 

5 F< I,J)=F( I,J)-G*F(L,J) 

D = 1 .0 

DO 6 I = 1,N 

6 D=D*F( 1,1) 

RETURN 

END 


FUNCTION DOT ( A , B ) 

C 

C DOT COMPUTES THE DOT PRODUCT OF VECTORS A AND B. 

C 

DIMENSION A ( 3 ) , B ( 3 ) 

DO 1 J = 1,3 

1 DOT=A ( 1 )*B< 1 )+A(2 )*B(2 )+A ( 3 )*B(3) 

RETURN 

END 


ZDET0001 

ZDET0002 

ZDET0003 

ZDET0004 

ZDET0005 

Z DET0006 

ZDET0007 

ZDET0008 

Z DET0009 

Z DE T 0010 

ZDETOO 1 1 

ZDET0012 

ZDETOO 1 3 

ZDET0014 

ZDET0015 

ZDETOO 1 6 

ZDET0017 

ZDETOO 1 8 

ZDET0019 

ZDET0020 

ZDET002 1 

Z DET0022 

ZDET0023 

ZDET0024 

ZDET0025 

Z DET0026 

ZDET0027 

ZDET0028 

ZDET0029 

ZDET0030 

ZDET0031 

Z DET0032 


Z DOT 0001 
ZD0T0002 
Z DOT 0003 
ZDOT 0004 
Z D0T0005 
ZDOT 0006 
ZD0T00O7 
Z DOT 0008 
Z D0T0009 
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SUBROUTINE EOUAT 1 

SUBROUTINE EQUAT1 CONTAINS THE EQUATIONS EOR THE 
DERIVATIVES WHICH MUST BE EVALUATED IN ORDER TO INTEGRATE 
THE EQUATIONS OF MOTION AND THE VARIATIONAL EQUATIONS FOR THE 
UPPER PHASE PORTION OF THE DECK. MOTE PAGES FOUR THROUGH SIX 
IN PAYLOAD OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES 
(NASA T N— 3 1 21). 

COMMON /CSTAR/ CM A ( 1 000 ) , C MB ( 1000 ) 

DIMENSION TS (6 ) 

EQUIVALENCE (CPSI , CMA < 888 ) ) , < DOMEGA , CMA ( 505 ) ) , ( DPH I ,CMA(503I) 
EQUIVALENCE (DR ,CMA ( 50? ) ) , ( DRMASS ,CMA ( 501 ) ) , ( DU ,CMA(504)I 
EQUIVALENCE (QZLAM1,CMA(506) ),( DZLAM2 , CM A (507)), (DZL AM 3, CMA (508)) 
EQUIVALENCE ( FDM ,CMA ( 88ft )),( FLOW ,CMA( 877 ) ) , ( FM ,CMA(715)) 

EQUIVALENCE (G , CMA ( 7 1 6 ) ) , ( I MODE , CMB ( 06 1 ) ) , ( N ST AGE , CMA ( 7 1 0 ) ) 

EQUIVALENCE (TIME ,CMA ( 409 ) ) , ( TS ,CMA( 932 > > , ( U ,CMA(404)) 

EQUIVALENCE (V , CM A ( 889 ) ) , ( V F L. E X , CM A ( 870 ) ) , ( Z L AM 1 , CMA ( 40ft ) ) 

EQUIVALENCE (ZLAM2 , CMA ( 407 ) ) , ( Z L AM3 ,CMA(408)) 

CALCULATE THE SINF AND COSINE OF THF THRUST ANGLE 

I F ( ZLAM2.NE.0.0) GO TO 1 

CPSI=0.0 

SPSI=SIGN< 1.0,ZLAM1 ) 

GO TO 2 

1 TPSI=ZLAM1/ZLAM2 
TPS I SO = TPSI**2 
DENOM=SORT (1.0+TPSISQ) 

SPS I =S IGN( TPS I /DENOM , ZLAM1 ) 

CPSI = SIGN) 1 .O/DFNOM, ZLAM2 ) 

2 PSI=ARCTAN(SPSI tCPSI ) 

RS0=R**2 

3 FDM=VELFX*FLOW/RMASS 

DERIVATIVE OF WEIGHT 

4 DRMASS = -FLOW 

DERIVATIVES OF THE EQUATIONS OF MOTION. 

DR = U 

DPH I = OMEGA 

DU = 0MEGA**2*R-FM/RS0+FDM*SPS 1 
DOMEGA = -2 .0*U*0MFGA/R + FDM*CPS I /R 

DERIVATIVES OF VARIATIONAL EQUATIONS. 

DZLAM1=2.0*0MEGA*ZLAM2-ZLAM3 

DZLAM2=-2.0*0MEGA=FZLAM1 + U*ZLAM2ZR-ZLAM4ZR 

DZLAM3 = D0MEGA=FZLAM2-( 2 . 0*FM/ RS0+0MEGA**2*R )*ZLAM1/R 

COMPUTE TOTAL VELOCITY 
V = SORT ( U=^2 + RSQM0MEGA**2 ) 

RETURN 

END 
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c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

C 

c 

c 


c 

c 

c 


SUBROUTINE EOUAT2 

SUBROUTINE EOUAT2 CONTAINS THE EQUATIONS FOR THF DFRIVATIVFS 
OF THE EQUATIONS OF MOTION FOR THE BOOSTER PHASE AND ALSO CALLS 
THE SUBROUTINES WHICH COMPUTE AERODYNAMIC AND PROPULSION 
CHARACTERISTICS OF THE BOOSTER SFTMENTS. 

COMMON /CSTAR/ CMA ( lOOD ) ,CMB( 1000) 

COMMON ZATABLE/ CME(ROOO) 

DIMENSION COMPA (3 ),RB (5 ),VATM (5 ) 

DIMENSION VX (5 ),X (100 ),XDOT (100 ) 

EQUIVALENCE (COMPA , CMA ( 783 )),( FLOW , C M A ( 7 52 ) ) , ( CM ,CMA(715)) 

EQUIVALENCE ( 08L ATN , CME ( 002 ) ) , ( 0 , CMA ( 807 ) ) , ( RB ,CMA(754)) 

EQUIVALENCE (VATM ,CMA ( 764 ) ) , ( VX ,CMA < 759 ) ) , ( X ,CMA(401)) 

EQUIVALENCE (XOOT ,CMA<501)) 


,CMA( 715 ) ) 
,CMA( 754) ) 
» CMA ( 40 1 ) ) 


COMPUTE TOTAL VELOCITY AND RADIUS 
DO 1 K=l,3 
V X ( K ) = X ( K + 2 ) 

1 R B ( K )=X(K + 5) 

VX(4)=D0T< VX,VX ) 

VX(5)=S0RT ( V X ( 4 ) ) 

R B ( 4 ) =DOT ( RB * R B ) 

RB( 5)=S0RT ( RB ( 4 ) ) 

TEST FOR OBLATENFSS PERTURBATION COMPUTATION. 
IF(ORLATN.NE.O.O) CALL OBLATE 


CALL AERODYNAMIC ROUTINES 
CALL ATMOS 
CALL AFRO 


ZE0A0001 

Z EQA0002 

Z E0A0003 

Z E0A0004 

ZE0A0005 

Z EQ A 0006 

ZE0A0007 

ZE0A0008 

ZEQA0009 

ZF0A0010 

ZEQA0011 

ZEQA0012 

ZE0A0013 

ZEQA0014 

ZE0A0015 

ZEQA0016 

ZEQA0017 

ZE0A0018 

ZEQA0019 

ZEQA0020 

ZE0A0021 

Z EQA0022 

ZE0A0023 

Z FQA0024 

Z EQA0025 

ZE0A0026 

Z EQA0027 

ZF0A0028 

ZEQA0029 

Z E0A0030 

ZE0A0031 

ZF0A0032 

Z EQA0033 


CALL SIMPRO FOR THRUST AND FLOW DATA 
CALL SIMPRO 

DERIVATIVE OF WEIGHT 
XDOT ( 2 ) =— FLOW 

DERIVATIVES OF EQUATIONS OF MOTION IN R FC T ANGULAR COORDINATES. 
DO 2 K=1 ,3 
XDOT ( K+5 ) =VX ( K ) 

2 XD(JT(K + 2)=C0MPA(K)-GM*RB(K)/RB(5)/RB(4) 

DERIVATIVE OF TOTAL HEATING PARAMETER. 

XDOT ( 1 ) =Q* V ATM ( 5 ) 

RETURN 

END 
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SUBROUTINE ERRURZ 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE ERROR Z IS 
STEPSIZE CONTROL PACKAGE. 


PART OF THE INTEGRATION ERROR AND 
SINCE A TRAJECTORY USES BOTH 
R FC T ANGULAR AND POLAR COORDINATES, PROVISION IS MADE FOR 
COMPARING THE DIFFERENCES BETWEEN THE FOURTH ORDER RUNGE-KIJTTA 
AND SIMPSON SCHEMES WITH SOME MEASURE OF THE IMPORTANCE OF THE 
DIFFERENCE FOR BOTH OF THESE SYSTEMS. FOR A DISCUSSION OF THE 
INTEGRATION METHOD AND ERROR AMO STEPSIZE CONTROL, SEE THE 
N-BODY CODE - A GENERAL FORTRAN CODE FOR SOLUTION OF PROBLEMS 
IN SPACE MECHANCIS BY NUMERICAL MFTHODS, BY WILLIAM C. STRACK, 
WILBUR F. DOBSON, AND VEARL N. HUFF, NASA TN D-1455. 

COMMON /C ST AR/ CMA( 1000) ,CMB(1000) 

COMMON /RUNG/ RUN (125) 


INTEGER STEPGO 

DATA CHFCK(9)/1.0E+10/ 

62=0.0 

I F ( I MODE. EO. 2) GO TO 1 

COMPARISON ARRAY FOR BOOSTER INTEGRATED VARIABLES 

CHECK(2)=WEIGHT 

VX 5 A = VX 5 + 100.0 

CHECK ( 3 ) =VX 5A 

CHECK ( 4) =VX5A 

CHECK < 5 ) = VX5A 

CHECK ( 6 ) = RB5 

CHECK ( 7 ) = RB5 

CHECK ( R ) =RB5 

N S T = 2 

GO TO 3 

COMPARISON ARRAY FOR UPPER PHASE INTEGRATED VARIABLES 
I F ( STEPGO. EO.O ) HOLD = 1.0 
I F( ABS ( ZLAM3 ) .LT .ABS ( HOLD) ) GO TO 2 
H0LD=ZLAM3 

DENOM=SQRT I ZL AM 1 *Z L AM 1+Z L AM2*Z L A M2 ) 

CHECK! 1 )=RMASS 
CHECK ( 2 ) =R 
CHECK<3)=6. 2831853 
CHECK ( 4 ) =V 
CHECK ( 5 ) = VAR 
CHECK (6 )=DENOM 
CHECK ( 7 ) =DENOM 
CHECK ( 8 ) = H 0 L D 
CHECK ( 10 ) =DENOM 
NST = 1 

00 5 J = NST , NEO 


Z ER R 000 1 
ZERR0002 
Z ERR0003 
Z ERR0004 
Z ERR0005 
ZERR0006 
Z ERR0007 
ZERR0008 
Z ERR0009 
ZERR0010 
ZERR0011 
ZERR0012 
ZERR0013 
ZERR0014 
ZERR0015 


DIMENSION CHECK ( 10 


) ,RELERR( 1 00 ) , X I NC 

( 100 

) 



ZERR0016 

EQUIVALENCE 

( A 1 

, R UN ( 

101 )) , 

(A2 , RUN ( 1 02 ) 

) , ( DELT 

,CMA! 

[ 701 ) 

) 

ZERR0017 

EQUIVALENCE 

( E2 

, RUN ( 

105 ) ) , 

<1 MODE , CMB ( 06 1 ) 

) , ( NEQ 

, C MA 1 

[ 709) 

) 

ZERR0018 

EQUIVALENCE 

( R 

, CMA ( 

402 ) ) , 

(RB5 ,CMA ( 758 ) 

) , ( RELERR 

,RUN 1 

1001) 

) 

ZERR0019 

EQUIVALENCE 

( RMASS 

, C M A ( 

401 )) , 

( STEPGO, RUM (112) 

) , (V 

, CMA ( 

[ 889) 

) 

Z ERR0020 

EQUIVALENCE 

( VX5 

, CMA ( 

763 ) ) , 

(WEIGHT, CMA(402) 

) , ( X I MC 

, R UN 1 

:ooi ) 

) 

ZERR0021 

EQUIVALENCE 

( ZLAM1 

, C M A ( 

406 ) ) , 

(ZLAM2 , CMA ( 407 ) 

) , ( ZLAM3 

, C M A ( 

[408 ) 

) 

ZERR0022 


ZERR0023 
ZERR0024 
Z ER R 00 2 5 
ZERR0026 
Z ERR 002 7 
ZERR0028 
ZERR0029 
ZERR0030 
ZERR0031 
ZERR0032 
Z ERR0033 
Z E RR0034 
Z ERR0035 
ZERR0036 
ZERR0037 
ZERR0038 
Z ER R 0039 
ZFRR0040 
Z ERR0041 
ZERR0042 
ZFRR0043 
ZERR0044 
Z ER R 0045 
ZERR0046 
Z ERR0047 
ZERR0048 
Z ERR0049 
ZERR0050 
Z ER R 005 1 
ZERR0052 
ZERR0053 
ZERR0054 
ZERR0055 
ZERR0056 
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1 



non 


ZERR0057 

DIVIDE DIFFERENCES IN TWO INTEGRATION SCHEMES BY COMPARISON ZERR0058 

ARRAY AND FIND LARGEST ABSOLUTE FRROR. ZFRR0059 




RELERRf J)=XINC( J) /CHECK! J) 

ZERR0060 

c 


IF(ABS(RELERR(J ) )-E2) 5,5,4 

Z ERR 006 1 
ZFRR0062 


4 

E2=ABS(RELERR ( J ) ) 

ZERR0063 


5 

CONTINUE 

ZFRR0064 

c 


COMPUTE FACTOR IN STEP-SIZE CONTROL EQUATION. 

Z ERR0065 



E2=E2+2 . E-08 

ZERR0066 



A 1 =A2 

ZERR0067 



A2 = ALOG ( E2 )-5.0*AL0G( ABSIOELT ) ) 

ZERR0068 



RETURN 

Z ERR0069 



END 

ZERR0070 


ooo OOOO OOOO OOO OOOO 


c 


SUBROUT I NE FINAL(N) 

SUBROUTINE FINAL CQMPUIFS THF OIFFFPFNCFS BETWEEN THE 
ACTUAL FINAL CONDITIONS ACHIEVED IN THE INTEGRATED TRAJECTORY 
AND THE DESIRED FINAL CONDITIONS. 

COMMON /CSTAR/ CMA ( 1000 ) ,CMB ( 1000 ) 

COMMON /EINCMP/ ENC P ( 6 » 5 ) 

DIMENSION CONST (5 ,2 ) » FLOMX (A ),FY (6 ,8 ) 

DIMENSION F YD <5 ) , I DAT A (6 ,5 ),JFINAL<6 ) 

DIMENSION PROP (6 ),S (6 ,2 ) 

EQUIVALENCE (BETA ,CMA( 880 )),( CONST , CM A ( 894 ) ) , ( DE L T A V , CMA ( 88 1 ) ) 
EQUIVALENCE ( ENERGY , CMA ( 892 )),( FLOMX ,CMA ( 837 ) ) , ( FM ,CMA(715») 
EQUIVALENCE ( FY , C M A ( 943 ) ) , ( F YD , CMB ( 038 ) ) , ( I DATA ,CMR(0861) 
EQUIVALENCE ( J F I NAL ,CMB ( 1 36 ) ) f ( L AST ,CMA ( 890 )),( NCUTE ,CMA(893>) 

EQUIVALENCE ( NF I N AL , CMA ( 879 ) ) , ( NOP T A , CMB ( 070 )),( OMEGA ,CMA(405)> 

EQUIVALENCE (PROP ,CMA ( 849 ) ) , ( R ,CMA ( 402 ) 1 , ( RMASS ,CMA(401>) 

EQUIVALENCE (S ,CMB< 074) ) , (U , CMA ( 404 ) ) * ( V ,CMA(8891) 

EQUIVALENCE (VELEX f CMA ( 870 )) , ( ZLAM I ,CMA ( 406 ) ) , ( ZLAM2 ,CMA(4071) 

EQUIVALENCE (2LAM3 ,CMA(408)1 
I = 0 

IF (NCUTE. EO.O) I = 1 
GO TO (1,2,3,41 , NF I NAL 

FINAL CONDITIONS FOR SPECIFIED RADIUS, RADIAL VELOCITY, AND 
ANGULAR VELOCITY. 

1 FY ( N , 1 ) =R-F YD ( 1) 

FY(N,2)=U-FYD(2 ) 

FY ( N,3)=0MEGA-FYD( 3) 

GO TO S 

FINAL CONDITIONS FOR SPECIFIED ENERGY, WITH OPTIMIZED RADIUS AND 
VELOCITY. 

2 FY(N,i )=ZLAM3*U-ZLAM1*(R*0MEGA**2+FM/R4*2) 

F Y ( N , 2 )=ZLAM2*U-ZLAM1*0MFGA*R 

F Y ( N , 3 ) = ( U**2 + ( R*OMFGA )**2)/2.0-FM/R-ENFRGY 

GO TO 5 

FINAL CONDITIONS FOR SPECIFIED ENERGY AMD FLIGHT PATH ANGLE WITH 
OPTIMIZED RADIUS. 

3 F Y ( N , 1 )=U/R/OMEGA-SIN(BFTA) /COS (BETA) 

VEL=U**2+ ( R*OMEGA ) **2 

FY ( N * 2 ) =Z L AM3 — ZL AM2*0MEGA/ V EL* ( FM/R + V EL 1 —ZL AMI *FM*U/ VEL /R**2 
FY(N,3)=VEL/2.0-FM/R -ENERGY 
GO TO 5 

FINAL CONDITONS FOR SPECIFIED ENERGY AND PERIGEE RADIUS WITH 
OPTIMIZED INJECTION TRUE ANOMALY. 

4 RSQ=R**2 

P=(RSO*OMEGA)*(RSQ*OMEGA)/FM 
E = SQRT (1.0-P*(2.0/R-V**2/FM) ) 

FY(N,1)=P/(1.0+E)-FYD(1 ) 

FY(N,2 )=ZLAM1*(R*0MEGA**2-FM/RS0)+U*( Z L AM3-2 . 0*DMEGA*Z L AM2 ) 

FY ( N, 3 ) =0 . 5*V**2-FM/R-ENERGY 
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Ill (I III 


c 

C THIS SECTION CONTAINS THE FINAL CONDITIONS FOR OPTIMIZING STAGE 

C SIZE. THE EQUATION NUMBERS FROM PAYLOAD OPTIMIZATION OF 

C MULTISTAGE LAUNCH VEHICLES ARE LISTED WITH THE EQUATION. 

5 DO 11 J = 1 , L AST 

I F ( J FINAL ( J> .EO.O) GO TO 11 
K = JFINAL ( J ) 

1 = 1+1 
GO TO (6,9) , K 

6 I F ( I DAI A ( J+ 1,5). EO.O) GO TO 7 
C 

C EQUATION 41C 

FY< N, 1+2 >=CONST ( J ,1 ) 

C 

GO TO 11 

7 I F ( J.GT.NOPTA) GO TO 8 
C 

C EQUATION 4SB 

FNCP(J,1)=S(J+1»1) 

FNCP(J,2)=S(J,2)/(1. O+PROP ( J ) ) 

F Y ( N , I + 2 ) = FNC P ( J , 1 ) -FNC P ( J , 2 ) 

GO TO 11 
C 

C EQUATION 48 A 

8 FNCP(J,1 )=SADDB( l,NOPTA+l,J) 

FNC P ( J , 2 ) =SADDB (2.NOPTA+1 , J-l ) 

FNCP(J,3)=S(NOPTA,2)/( 1 .O+PROP ( NOPT A ) ) 

FNCP(J,4)=S(J+1,1 ) 

FNC P(J,5)=S(J»2) 

F Y ( N , 1+2 )=FNCP ( J , 1 ) — FNCP ( J , 2 ) - FNC P ( J , 3 ) + FNCP ( J , 4 ) - FNC P ( J , J> ) 

GO TO 11 
C 

9 IF (J.EO.LAST) GO TO 10 

C EQUATION 47 

FNC P ( J , 1 ) = ( 1 .O + PROP ( J ) ) / PROP ( J } 

FNCPC J,2 ) =S < J , 1 ) 

FNCP(J,3)=S(NOPTA,2)/( 1 . O+PROP ( MOPT A ) ) 

F NC P ( J , 4 ) = S A DO A ( N OP T A+ 1 , J— 1 ) 

FNC P ( J , 3 ) =S ( J , 2 ) 

FY( M, 1+2 ) =FNC P ( J , 1 )*(FNCP ( J ,2)-FNCP( J, 3)-FNCP( J ,4 ) )-FNCP< J,5 ) 

GO TO 11 

C EQUATION 50 

10 FNCP ( J , 1 ) =S (LAST ,2 ) 

FNC P ( J , 2 ) = ( 1.0+ PROP (LAST) J^EXPf-OELTAV/VELFX) /PROP (LAST) 
FNCP(J,3)=S(N0PTA,2)/( 1 .O+PROP ( NOPT A ) ) 

FNC P(J,4)=S(LAST,1 ) 

FNC P ( J , 5 ) =SADDA ( NOP T A+ 1 , L A ST- 1 ) 

FY( N, 1 + 2 ) =FNCP( J, 1 )+FNCP( J,2 ) * ( FNC P(J,3)-FNCP(J,4) +FMC P ( J , 5 ) ) 

1) CONTINUE 
C 

C THE FINAL WEIGHT IS STORED IN FY(N,6) 

FY(N,6)=RMASS 

C 

RETURN 

END 
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SUBROUTINE INVERT <A,B,N,SIZE) 

C THIS SUBROUTINE INVERTS A NONSINGULAR NXN MATRIX. 

C 

INTEGER SIZE 

DIMENSION A(SIZE, SIZE), B(SIZE, SIZE) 

C 

COMMON / INVOET/F ( 10, 10 ) 

C 

C 

CALL DETERMt A,E,N,SIZE) 

IF (E.NE.O.O! GO TO 2 
WRITE (6,1) 

1 FORMAT ( 1RH0DETERMINANT = 0.0) 

RETURN 

C 

2 00 4 I = 1 , N 
DO 4 J = 1,N 

IF< I .FO. J ) GO TO 3 

R( I ,J)=0.0 
GO TO 4 

3 B ( I,J) = 1.0 

4 F< I ,J ) =A( I , J ) 

DO R K = 2 , N 

L =K- 1 
IM = L 

DO 5 I = L,N 

3 IF(ABS(F(I,L)).GT.ABS(F(IM,L)))IM=I 
I F ( IM.EO.L ) GO TO 7 

ICOUNT= ICOUNT+1 
DO 6 J = 1,N 
G= F ( I M , J ) 

H = B ( I M , J ) 

F(IM,J)=F(L,J) 

R(IM,J)=B(L,J) 

F ( L , J ) = G 

6 R ( L , J ) =H 

7 DO 8 I = K , N 

C=F (I,L)/F(L,L) 

DO 8 J = 1,N 
B(I,J)=B(I,J ) -C*B ( L , J ) 

8 F(I,J)=F(I,J)-C*F(L,J) 

I M = N — 1 

DO 9 K = 1 , I M 
|_ = N-K+1 
M = N-K 

DO 9 1=1 ,M 
C=F ( I,L)/F(L,L) 

DO 9 J = 1 , N 

9 B ( I , J ) = ( B ( I,J)-C*B(L,J) ) 

DO 10 I = 1 , N 

DO 10 J = 1,N 
10 R ( I , J ) =B ( I , J >/F( I , I ) 

RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE I T ER AT ( X , X I NC , V , DES I RE , TOL , I , I MAX , I COM , I EUNC , TEMP , ERR ) 

SUBROUTINE ITERAT IS A GENERAL ITERATING ROUTINE. 

THE FOLLOWING PARAMETERS ARE NECESSARY TO OPERATE THE 
ROUTINE. 

X INDEPENDENT VARIABLE 


XINC 

Y 


DELTAX = X*XINC FOR SECOND PASS 
DEPENDENT VARIABLE 


DESIRE DESIRED VALUE OF Y 

EQUIVALENCE (OMEGA ,CMA ( 405 ) ) , ( PH I , C MA ( 403 ) ) , ( PS I ,CMA(885>> 

EQUIVALENCE (R , CMA ( 40? ) ) , ( RMASS , CMA ( 40 1 ) ) , ( S PS I ,CMA(887>) 


TOL 

I 

I MAX 
ICOM 

I EUNC 

TEMP 

ERR 


ICOM = 1 
= 2 
= 3 


I FUNC 


= 2 
= 3 


= 4 
= 5 
= 6 


TOLERANCE IN Y FOR CONVERGENCE. IF ZERO, DATA IS 
STORED BUT NO ITERATION OCCURS. 

COUNTER INCREMENTED FOR EACH PASS THROUGH ROUTINE, I 
MUST BE ZEROED EXTERNALLY BEFORE FIRST PASS. 

TOTAL PASSES ALLOWED 

FLAG EUR EXTERNAL USE TO INDICATE CONVERGENCE OR IMAX 
EXCEEDED. (SEE BELOW) 

FLAG TO INDICATE CHOICF OF CONVERGENCE TECHNIQUES. 
(SEE BFLOW ) 

STORAGE PROVIDED BY CALLING PROGRAM. 

VALUE AGAINST WHICH DEVIATION OF Y FROM DESIRE IS 
COMPARED. (COMPARISON FUNCTION) 

ITERATING. 

CONVERGED. 

IMAX EXCFEDFD. 


DAMPING MODES. 

L INEAR. 

Y=AX**2+KX+C 

X=AY**2+BY+C 

ELIMINATES WORST VALUE OF X. 

LINEAR. 

Y=AX**2+BX+C 


X = AY*=!=2 + RY + C 

DIMENSION TEMP ( 5 , 2 ) 

INCREMENT I 
1 = 1 + 1 

COMPARE DIFFERENCE WITH COMPARISON FUNCTION 


Z ITR0001 
Z ITR0002 
Z ITR0003 
ZITR0004 
Z ITR0005 
ZITR0006 
ZITR0007 
ZITR0008 
Z ITR0009 
ZITR0010 
Z ITR0011 
ZITR0012 
Z ITR0013 
ZE0A00I7 
ZE0A0018 
ZITR0014 
Z ITR0015 
ZITR0016 
Z ITR0017 
ZITR0018 
Z ITR0019 
Z ITR0020 
Z ITR0021 
Z ITR0022 
Z ITR0023 
Z ITR0024 
Z ITR0025 
ZITR0026 
Z ITR0027 
ZITR0028 
Z ITR0029 
Z ITR0030 
ZITR0031 
ZITR0032 
Z ITR0033 
Z I TR 0034 
Z ITR0035 
Z ITR0036 
ZITR0037 
ZITR0038 
ZITR0039 
ZITR0040 
Z ITR0041 
Z ITR0042 
Z ITR0043 
ZITR0044 
Z ITR0045 
Z ITR0046 
Z IT R0047 
ZITR0048 
Z ITR0049 
ZITR0050 
Z ITROObl 
ZITR0052 
Z ITR0053 
Z ITR0054 
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0= Y-DES IRE 
6RR0R= ABS (D/ERR) 

PREVIOUS ERROR STORED IN TEMP<5,1) 
CHECK=ERR0R-TFMP(5,1) 

IF(TOL.EQ.O.O) GO TO 12 
IE(ERROR.LT.TOL) GO TO 24 
I F ( I.LT.IMAX) IFII-2) 1,2,3 
GO TO 23 

COMPOTE INCREMENT IN X EOR SECOND PASS 
1 TEMPI 5,2 )=X*XINC 
I C 0 M = 1 


GO TO 12 

LINEAR INTERPOLATION 

2 TEMP(5,2)=D*(X-TEMP( 1,1))/(TEMP(2,1)-D) 

GO TO 12 

3 GO T0(4,7,7,2, 8,8, 1 ) , I FONC 

4 IF(CHECK.GE.O.O) GO TO 6 
3 GO TO (2, 8, 10) , I FONC 

A I F< TEMPI 1 , 1 ) .EO.X) GO TO 23 

EXECUTION COMES HERE IF ERROR INCREASES, DAMPS 
TEMP(5,2)=(TEMP(1,1)— X)/2.0 

GO TO 12 

7 I F I I . GT . 3 ) GO TO 4 

8 D1 3=TEMP (2,1) -D 
D23 = TEMP I 2 ,2 )-D 
F 1 =TEMP I 1 , 1 ) — X 

F 2 = T E M P ( 1 , 2 ) — X 

GO TO I 10, 10, 1 1 , 10, 10,11 ) , IFONC 

QUADRATIC INTERPOLATION, Y = AX**2+BX+C 

10 F12 = TEMP( 1 ,1 )-TEMP I 1 ,2 ) 
B0VERA=(F1*F1*D23-F2*F2*D13)/(D13*F2-D23*F1) 
RADCAL=R0VERA**2/4.0-Fl*F2*F12/ I D1 3-F2-D2 3*F 1 )*D 
IFIRADCAL.LT. 0.0) GO TO 26 
A=!D13*F2-D23*Fl)/( F'1**2*F2 — F1*F2**2 ) 

TEMPI 5,2 )=-B0VERA/2.0+SIGN( SORT I RADCAL ) , I D-TEMP ( 2 , 1 ) )*A/ I X- 
11))) 

GO TO ) 2 

QUADRATIC INTERPOLATION, X = AY**2+BY+C 

11 D12=TEMP( 2, 1 J-TEMPI2 ,2 ) 

TEMP(5,2) = (-TEMP(2,1) **2*F2*D + D**2=M TEMP I 2 ,1)*F2-F1*TEMP(2 
1 TEMP ( 2,2 )=k^2^Fl^D) /( TEMPI 2, 1 ) **2*D23-TEMP I 2 , 2 ) **2*0 1 3+ 0**2 


Z ITR0055 
ZITR0056 
Z ITR0057 
Z I TR0058 
Z ITR0059 
ZITR0060 
Z ITR0061 
ZITR0062 
Z ITR0063 
Z I TR0064 
Z ITR0065 
ZITR0066 
Z ITR0067 
ZITR0068 
Z ITR0069 
ZITR0070 
Z ITR0071 
ZITR0072 
Z ITR0073 
ZITR0074 
Z ITR0075 
Z ITR0076 
Z ITR0077 
Z I TR0078 
Z ITR0079 
Z ITR0080 
Z ITR0081 
Z ITR0082 
ZITR0083 
ZITR0084 
Z ITR0085 
ZITR0086 
Z ITR0087 
ZITR0088 
Z ITR0089 
Z I TR0090 
Z ITR0091 
ZITR0092 
Z ITR0093 
Z I TR0094 
Z ITR0095 
Z I TR0096 
Z ITR0097 
Z ITR0098 
TEMPI 1 , Z I T R0099 
ZITR0100 
ZITR0101 
ZITR0102 
Z ITR0103 
Z ITR0104 
Z ITR0105 
,2))+ ZITR0106 
-D12) Z1TR0107 

ZITR0108 
Z ITR0109 


TEMP (1,1) 

HAS 

THE 

BEST 

VALUE OF 

X 


ZITR0110 

TEMPI 1,2) 

HAS 

THE 

BEST 

VALUE OF 

Y 


Z ITR01 11 

TEMP (2 , 1 ) 

HAS 

THE 

NEXT 

BEST VALUE 

OF X 

ZITR0112 

TEMP I 2 , 2 ) 

HAS 

THE 

NEXT 

BEST VALUE 

OF Y 

Z ITR0113 


ZITRC114 
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1? I F ( I -2 ) 20,13,15 

13 IF(CHECK.LT.O.O) GO TO 19 

14 TEMP ( 1,2 1=X 
TEMP(2,2)=D 
GO TO 22 

1 5 I F ( IFUNC.LT. 4) IF(CHECK) 19,22,22 

17 IF(CHECK.GE.O.O) I F ( ABS ( D ) -ABS < TEMP ( 2 , 2 ) ) ) 14,22,22 

19 TEMP ( 1 ,2 )=TEMP< 1 , 1 ) 

TEMP(2,2)=TEMP(2,1) 

20 TEMP ( 1 , 1 ) =X 
TEMP ( 2 , 1 ) =0 

TEMP (5,1) STORES THE LEAST VALUE OF ERROR. 

21 TEMP(5,1)=ERR0R 

22 IF(TOL.EO.O.O) RETURN 

T E M P ( 5 , 2 ) CONTAINS THE CHANGE IN X. 

X = X + TEMP< 5,2 ) 

RETURN 

23 I COM= 3 
GO TO 25 

24 I C 0 M = 2 

25 1=0 
RETURN 

2ft WRITE (ft, 27) 

GO TO 23 

27 FORMAT ( 31H0NEGAT I VE SQUARE ROOT IN ITERAT) 

END 


Z ITR0115 
ZITROllft 
Z ITR0117 
Z ITR01 18 
Z ITR0119 
ZITR0120 
Z ITR0121 
ZITR0122 
Z ITR0123 
ZITR0124 
Z ITR0125 
ZITR0126 
Z ITR0127 
Z 1 TR0128 
Z ITR0129 
ZITR0130 
Z ITR0131 
Z ITR0132 
Z ITR0133 
ZITR0134 
Z ITR0135 
ZITR0136 
Z ITR0137 
Z ITR0138 
Z ITR0139 
ZITR0140 
Z ITR0141 
ZITR0142 
Z ITR0143 
ZITR0144 


SUBROUTINE LOAD ( V AR , NVAR , NK I CK ) 

SUBROUTINE LOAD TRANSFERS THE ALTITUDE, RADIAL VELOCITY, 

AND HORIZONTAL VELOCITY INTO THE VAR ARRAY. 

COMMON /CSTAR/ C M A ( 1 000 ) , C MB ( 1 000 ) 

COMMON/ AT A BL E /CME ( 8000 ) 

DIMENSION VAR ( NVAR , 2 5 , NK ICK ) 

DIMENSION V (ft ) 

EQUIVALENCE ( I BURN ,CMB ( 072 ) ) , ( I K ICK , CME ( 200 ) ) , ( V ,CMB(154)> 

I F ( I BURN. EQ. I BUR NT. UR. I BURN.EQ.O) RETURN 
I B(JRNT= I BURN 
DO 1 J = 1 , N V AR 
1 VAR(J, IB URN, IKICK)=V (J ) 

RETURN 

END 


ZL0A0001 

ZL0A0002 

ZL0A0003 

ZLOA0004 

ZL0A0005 

ZL0A0006 

ZL0A0007 

ZL0A0008 

ZL0A0009 

ZL0A0010 

ZL0A0011 

ZL0A0012 

ZL0A0013 

ZL0A0014 

ZL0A0015 
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MAIN 

MAIN IS THE CONTROLLING ROUTINE FOR THE DYNAMIC TABLE 
PROGRAM. IT IS BASICALLY A GENERAL NXN NfcWTON-RAPHSON SCHEME. 


COMMON /CSTAR/ C M A ( 1 OOO ) , CMB ( 1 000 ) 
COMMON /ATABLE/ CMFI8000) 

COMMON /PERB/NA,N,SF<5) , COUNT, RS TO 


DIMENSION COMP (5 
DIMENSION DELEY0I5 
DIMENSION DEL XD (5 
DIMENSION DEYIN (5 ,5 

DIMENSION ERROR (2 
DIMENSION FORCES ( 6 
DIMENSION N0PTSTI6 
DIMENSION TABLE (300 
DIMENSION V EL E XP ( 6 
DIMENSION XO <6 ,5 

EQUIVALENCE (CLEAR , CMA ( 9 30 ) ) , ( CMA X 
EQUIVALENCE (CONST , CM A ( 894 ) ) , ( DE L TK 
EQUIVALENCE ( OE L TS T , CMA ( 93 1 ) ) , ( DX 
EQUIVALENCE (ERLOG , CMA ( 707 ) ) , ( ERR 
EQUIVALENCE (ERROR , CMB ( 042 ) ) , ( F I XDTK 
EQUIVALENCE < FORC E S , C M A ( 7 39 ) ) , ( F Y 

( I MODE ,CMB(061 ) ) , ( ITERP 


), CONST (5 , 

) , DELTEM ( 5 , 

) , DELX I N < 5 , 

) * DX (5 
>,EVSO (6 
),FY (6 , 

) . SDEL (5 , 

) , THRUST ( 6 
) , WTELDW ( A 
) * X P R I M (100, 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( NEO 


EQUIVALENCE (NST 


EQUIVALENCE 

EQUIVALENCE 


( JK ICK , CMB (063 ) ) , ( LAST 
(MASH ,CMB<064) ) , (NDAMP 
, CMA ( 709 ) ) , (NOPT 
, CMA ( 708 ) ) , ( NST AGE 
, C M A ( 9 2 7 ) ) , (THRUST 
, C M A ( 870 ) ) , ( VELEXP 


2 ) , DEL F Y (6 ,5 

5 ) , DEL X (5 ,5 

5 ) , DEL XO (6 ,5 

) , DYDX I N ( 5 ,5 

) , FLOMX (6 

6 ) , NOPT (6 

5 ) , SDELN (5 ,5 

) , TOL (5 ,2 

) , X I NPT (100 
2 ) 

, CMA (928) ) , (COMP 
, CME ( 199 ) ) , ( DELTKT 
»CMA ( 938 ) ) , (EREF 
, CMB ( 041 ) ) , ( ERRMXK 
, CMB (071 ) ) , ( FLOMX 
, CMA ( 943 ) ) , ( G 
, C MB ( 069 ) ) , ( J DAT A 
, CMA ( 890 ) ) , ( LAST1 
»CMA ( 926 ) ) , (NDUMP 
, CMA (819) ) , (NSHOT 
, C M A ( 710 ) ) , ( R 
, CMA (831 ) ) , (TOL 
, C M A ( 8 6 A ) ) , (WTFLOW 
, CMB (001 ) ) , ( XPRIM 


) 

) 

, C MB ( 031 ) ) 
, CMB (058) ) 
, C M A ( 7 1 3 ) ) 
, CMB ( 054 ) ) 
,CMA( 837 ) ) 
, CMA (71 6) ) 
, C M A ( 9 2 5 ) ) 
, CMA ( 7 53 ) ) 
, CMB ( 057 ) ) 
, CMA ( 929 ) ) 
, C M A ( 402 ) ) 
, CMB ( 044 ) ) 
»CMA ( 733 ) ) 
, CMA (001 ) ) 


(RERUN 
( VELEX 

EQUIVALENCE (XINPT , CMA ( 60 1 ) ) , ( XO 
DOUBLE PRECISION XPRIM 

INTEGER COUNT , CMA X , F I XDTK , R E RUN, C L EAR 
EXTERNAL EQUAT 1 , OUTPT 1 

1 WRITE (6,2) 

2 FORMAT ( 1 H 1 > 

J DAT A= 1 
MCOUNT =0 

IFtCLEAR.EQ.l ) CALL STDATA 


(1) ALL DATA EXCEPT BINARY DATA IS INTRODUCED THROUGH THE 
INPUT ROUTINE. 

CALL INPUT (01, CMA, TABLE) 

(2) COEFNT GENERATES ANY NEEDED CURVE FITS. 

CALL COEENT 

(3) PRINT OUT HEADINGS ARE PRINTED OUT FOR THE UPPER PHASES. 
CALL OUTPT 1 ( 0 ) 

(4) DELTK (GRID SPACING FOR KICK ANGLES) IS SET EQUAL TO AN 
INPUT VALUE. 

DELTK=DELTKT 


ZMAI0001 
ZMAI0002 
ZMAI0003 
ZM A I 0004 
ZMAI0005 
Z M A I 0006 
ZMAI0007 
Z M A 10008 
Z MA I 0009 
Z M A I 00 1 0 
Z MA I 00 1 1 
Z M A 1 00 1 2 
ZM A I 00 1 3 
ZMAI0014 
ZMAI0015 
Z M A I 00 1 6 
ZMAI0017 
Z M A I 00 1 8 
Z M A I 00 1 9 
ZMAI0020 
ZMAI0021 
Z M A 1 002 2 
Z MA I 002 3 
ZMAI0024 
ZMAI0025 
Z MA I 0026 
ZMAI0027 
ZMAI0028 
ZMAI0029 
Z M A I 00 30 
Z M A I 00 3 1 
ZMAI0032 
ZMAI0033 
Z MA I 0034 
ZMAI0035 
ZMAI0036 
ZMAI0037 
ZMAI0038 
ZMAI0039 
Z M A I 0040 
ZMA 10041 
Z MA I 0042 
ZMA I 0043 
Z M A I 0044 
ZMA I 0045 
ZMA I 0046 
ZMA I 0047 
ZMA I 0048 
ZMA I 0049 
ZMA I 0050 
ZMA I 0051 
Z M A I 0052 
ZMA I 0053 
Z M A I 00 54 
ZMA I 00 55 
ZMAI0056 
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C (5) TAKE LOG OF FRFF FOR USE IN STEP. 

FRLOG = ALOG(EREF) 

C 

C (6) SET THRSUT AND WTFLOW OF LAST SEGMENT OF BOOSTER 

FORCES (L ASTI )=THRUST( 1) 

WTFLOW ( LAST 1 ) =FLOMX( 1 ) 

C 

C (7) COMPUTE JET VELOCITIES 

DO 4 J = 1,6 

I F ( FLOMX (J) .NE.O.O) GO TO 3 
VELEXPI J)=0.0 
GO TO 4 

3 VELEXP ( J ) =G*THRUST ( J ) /FLOMX ( J ) 

4 CONTINUE 
C 

C (8) IF IMODE = 3, A BINARY BOOSTER TABLE IS IN THE DATA 

C AND MUST BE READ IN. RENDER ( 1 ) CALLS BCREAD. OUTPT1 PRINTS 

C A GLOSSARY OF THE PROPULSION CHARACTERISTICS AND HARDWARE 

C RELATED DATA FOR EACH PHASE. 

IF ( IMODE. NE.3) GO TO 5 
I MODE=2 
JKICK = 1 
CALL RENDER (1) 

5 CALL OOTPT1I2) 

C 

C (9) GUESS IS A DUMMY ROUTINE AVAILABLF FOR ANY PURPOSE 

C REOUIRFD AT THE BEGINNING OF A PROBLEM. 

6 CALL GUESS 
C 

C (10) XOLUAD SETS UP THE XO LIST AND DETERMINES ITERP (THE 

C VARIABLE DETERMINING THE SIZE OF THE ITERATION LOOP). 

CALL XOLOAD 
C 

C (11) ASSIGN 43 TO NGO SETS NGO FUR THE STATEMENTS AT OR 

C NEAR STATEMENT 38. 

ASSIGN 43 TO NGO 
C 

C (12) SEE COMMENT 35. 

COUNT = 0 
C 

C (13) NA AND NB ARE RELATED TO ITERATION LOOP SIZE. SEE 

C COMMENT 10. 

NA= I TERP+2 
MR = NA + 1 
C 

C (14) ND AND NR E P ARE INITIALIZED. SEE COMMENT 46. 

ND = 0 
NR E P= 1 
C 

C (15) SCOMP COMPUTES VALUES AGAINST WHICH DEVIATIONS FROM THE 

C DESIRED FINAL CONDITIONS ARE COMPARED. 

CALL SCOMP(l) 

C 

C (16) IF NSHOT IS NON-ZERO, THEN THE NUMBER OF TRAJECTORIES 

C INTEGRATED WILL BE LIMITED TO THE VALUE OF NSHOT. IF NSHOT 

C IS NON-ZERO, IT IS USUALLY EQUAL TO ONE. 

I F ( NSHOT . EQ.O ) GO TO 7 
C 

NC=NSHOT 
GO TO 8 


ZMAI0057 
ZMAI0058 
ZMAI0059 
ZMAI0060 
ZMAI0061 
ZMAI0062 
ZMAI0063 
ZMAI0064 
ZMAI0065 
ZMAI0066 
ZMAI0067 
ZMAI0068 
Z MA 10069 
Z M A 1 0070 
ZMAI0071 
ZMAI0072 
ZMAI0073 
Z M A 1 0074 
ZMAI0075 
ZMA 10076 
ZMAI0077 
ZMA 1 0078 
ZMA I 0079 
Z MA 1 0080 
Z MA 1 008 1 
ZMA 1 0082 
ZMA I 0083 
ZMAI0084 
ZMA I 0085 
Z MA I 0086 
ZMA I 0087 
ZMAI0088 
ZMA 1 0089 
ZMA 1 0090 
ZMA 1 009 1 
Z M A 1 0092 
ZMA I 0093 
Z M A I 0094 
Z MA I 0095 
ZMA 1 0096 
Z M A 1 009 7 
ZMA I 0098 
ZMA I 0099 
ZMAI0100 
ZMA I 0 1 01 
ZMA 10102 
ZMA 10103 
Z M A 1 0 1 04 
ZMA 10105 
ZMA 10 106 
ZMA 10107 
ZMAI0108 
ZMA 10109 
ZMAI0110 
ZMAI0111 
ZMAI0112 
ZMAI01 13 
ZMAI0114 
ZMAI0115 
ZMAI0116 
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7 NC = NB 

8 DO 9 J= 1 , NA 
DO 9 N=2,NB 

(17) THE XO LIST CONTAINS THE INITIAL CONDITIONS WHICH ARE 
VARIED TO SATISFY THE FINAL CONDITIONS. THE X0(J+1,J), 

J = 1 * N A CONTAINS THE PERTURBATION MADE ON EACH INITIAL 
CONDITION. 

9 X0(N,J)=X0(1,J> 

DO 10 J = l.NA 

10 X0(J+1,J)=X0(1,J)+X0(1,J)*DX(J) 

(18) ICHECK IS A COUNTER WHICH IS INCREMENTED IN PERTB AND 
INDICATES THE NUMBER OF ATTEMPTS TO MODIFY THE PERTURBATION 
SIZE. SEE PERTB. 

11 ICHECK=0 

DO 18 N=NREP,NC 

(19) START INITIALIZES THE NECESSARY VARIABLES FOR THE IN- 
TEGRATION AND CALLS MAINA WHICH ACQUIRES THE PERTINENT BOOSTER 
DATA. 

12 CALL ST ART ( N ) 

(20) MASH = 0 INDICATES THAT THE DESIRED TRAJECTORY HAS NOT 
VIOLATED ANY OF THE INITIAL CONSTRAINTS. IF THE FIRST 
TRAJECTORY VIOLATES ANY CONSTRAINTS ( N = 1), THEN A NEW CASE 
IS CONSIDERED. IF THE FIRST CASE IS ACCEPTABLE AND A PERT- 
URBATION IS UNACCEPTABLE, THE PERTURBATION SIZE IS HALVED 
AND THE TRAJECTORY IS ATTEMPTED AGAIN. 

IF(MASH.EO.O) GO TO 13 
M A SH=0 

IF(N.EQ.l) GO TO 1 
OX ( N— 1 ) =DX ( N-l ) / 2 . 0 
GO TO 17 


(21) XINPT CONTAINS THE INITIAL CONDITIONS. THESE ARE 
TRANSFERED TO THE XPRIM LIST TO BE INTEGRATED. 

13 DO 14 J = NST,NEO 

14 XPRIM(J,1)=DBLE(XINPT(J) ) 


(22) DAMODE CHOOSES THE INITIAL STEPSIZE AND INITIALIZES THE 
OUTPUT CONTROL VARIABLES UTILIZED IN STEP. 

CALL DAMODE ( 1 , N ) 

(23) RUNGEK INTEGRATES THE XINPT LIST WITH RESPECT TO TIME. 
CALL RUNGEK ( EOUAT 1 ,OUTP T 1 ) 

SEE COMMENT 20 
IF(MASH.EO.O) GO TO 15 
MASH = 0 

IF (N.EO.l ) GO TO 57 
DX(N-1)=DX(N— 1J/2.0 
ICHECK = 0 
GO TO 17 


ZMAI0117 
Z MA 10118 
ZMAI0119 
ZMAI0120 
Z MA 10121 
ZMAI0122 
Z MA I 0 1 23 
ZMAI0124 
? MA 10125 
Z MA 10126 
ZMAI0127 
ZMAI0128 
ZMAI0129 
Z M A 1 0 1 30 
ZMAI0131 
ZMAI0132 
ZMAI0133 
ZM A I 0 1 34 
ZMAI0135 
Z M A I 0 1 36 
ZMAI0137 
ZMAI0138 
ZMAI0139 
ZMAI0140 
ZMAI0141 
Z MA I 0142 
ZMAI0143 
ZMAI0144 
ZM A I 0 145 
Z M A I 0 146 
ZMAI0147 
ZMAI0148 
ZMAI0149 
Z M A 1 0 1 50 
ZMA 10151 
ZMAI0152 
ZMAI0153 
ZMAI0154 
ZMAI0155 
ZMAI0156 
ZMA I 0 1 57 
ZMAI0158 
ZMA 10159 
ZMA 1 0 1 60 
ZMA 10161 
Z M A 1 0 1 62 
ZMA 101 63 
ZMA 101 64 
ZMA 1 0165 
ZMA I 0 1 66 
ZMA 10167 
ZMAI0168 
ZMA I 0169 
ZMAI0170 
ZMA 10171 
ZMA 10172 
ZMA 10173 
ZMAI0174 


(24) FINAL COMPUTES THE DIFFERENCES ( FY ) BETWEEN THE DESIRED F I N AL ZMA 1 0 1 75 


CONDITIONS AND THE ONES ACHIEVED IN THE INTEGRATED TRAJECTORY. ZMAI0176 
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c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


15 CALL FINAL(N) 

IF(N.GT.l) GO TO 16 

RSTO=R 

GO TO 18 

(25) PERTB CHECKS THE PERTURBATION SIZE. IF ICHECK = 0, THEN 
THE PERTURBATION SIZE IS WITHIN THE REQUIRED BOUNDARIES. 

16 CALL PERTB(DX(N-1) , ICHECK) 

SEE COMMENT 20 
I F ( ICHECK. EQ.O) GO TO 18 

17 X0( N,N-1 )=X0< 1 ,N-1 > + X0( 1 ,N-1 )*DX(N-1 ) 

GO TO 12 

18 CONTINUE 
IF(NB.NE.NC) GO TO 51 

(26) CALCULATE THE MATRIX OF DIFFERENCES IN FINAL CONDITIONS AND 
ITS INVERSE. 

19 DO 20 N = 1,NA 
DO 20 K = 1,NA 

20 DELX(N,K)=FY(N+1,K)-FY( 1,K) 

CALL INVERT ( DELX,DELXIN,NA,5 ) 

(27) CALCULATE ERROR INDICATOR FOR EACH TRAJECTORY. SFF EQUATION 
64 ON PAGE 26 OF PAYLOAD OPTIMIZATION OF MULTISTAGE LAUNCH 
VEHICLES, (NASA TN-3191). 

DO 21 1=1, NA 

S F ( I ) = 0 . 0 
DO 21 J = 1 , NA 

21 SF ( I ) = D F L X I N ( I , J ) * ( F Y ( J+l , 6 ) -FY ( 1,6) ) + SF ( I ) 

DO 22 N= 1 , NB 

E V SO ( N ) =0 . 0 
DO 22 J= 1 , NA 

22 EVSO(N)=EVSO(N)+(FY(N,J)*SF(J) )**2 

(28) DETERMINE TRAJECTORIES WITH LARGEST AND SMALLEST ERROR 

FMIN ERROR FUR BEST TRAJECTORY 

KM I N NUMBER OF BEST TRAJECTORY 

FMA X ERROR FOR WORST TRAJECTORY 

KM A X NUMBER OF WORST TRAJECTORY 

FM I N = E VSQ ( 1 ) 

KM I N = 1 

DO 23 N=2 , NB 

IF(FVSO(N).GT.EVSQ(KMIN) ) GO TO 23 
FMIN=EVSQ(N) 

KM I N = N 

23 CONTINUE 
FMAX=EVSO ( 1 ) 

K MA X = 1 

DO 24 N=? , NB 

I F ( E VSQ ( N ) .LT.EVSO(KMAX) ) GO TO 24 
FMAX=EVSQ ( N ) 

KMAX=N 

24 CONTINUE 

(29) THE KMIN TRAJECTORY IS USED AS A REFERENCE TO GENERATE 
A SET OF PARTIAL DERIVATIVES AND INITIAL CONDITIONS ARF 
COMPUTED FOR A NEK REEFRENCE TRAJECTORY. 


ZMAI0177 

ZMAI0178 

ZMAI0179 

ZMAI0180 

ZMAI0181 

ZMAI0182 

ZMAI0183 

ZMAI0184 

ZMAI0185 

ZMAI0186 

ZMAI0187 

ZMAI0188 

ZMAI0189 

Z M A 1 0190 

ZMAI0191 

Z M A 1 0 1 92 

Z MA 1 0 1 93 

ZMAI0194 

ZMAI0195 

ZMAI0196 

ZMAI0197 

ZMAI0198 

ZMAI0199 

ZM A 1 0200 

ZMAI0201 

Z MA 1 0202 

Z MA I 0203 

ZM A 10204 

ZMAI0205 

Z MA 102 06 

Z MA I 020 7 

Z M A 1 02 08 

ZMAI0209 

Z M A 1 02 1 0 

ZMAI0211 

Z MA 10212 

ZMAI0213 

Z M A I 02 1 4 

Z MA 1 02 1 5 

ZMAI0216 

ZMAI0217 

ZMAI0218 

Z MA I 02 1 9 

ZMAI0220 

ZMAI0221 

ZMAI0222 

ZMAI0223 

ZMAI0224 

ZMAI0225 

ZMAI0226 

ZMAI0227 

ZM A 1022 8 

ZMAI0229 

Z M A 1 02 30 

ZMAI0231 

ZMAI0232 

ZMAI0233 

Z M A 1 02 34 

ZMAI0235 

ZM A 1 02 36 
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■infill llll■llllllll■l■l■■ll II 


25 

26 

27 

28 

29 

30 

31 

32 


33 


SEE SECTION ON PROCEDURE AND IMPLEMENTATION ON PAGE 25 OF PAYLOA 
OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES, (NASA TN-3191). 

UO 25 N= 1 »NB 
DO 25 M= 1 , NA 

DEL XO ( N , M ) =X0 ( N , M ) — XO ( KM I N , M ) 

DELFY(N,M)=FY(N,M)-FY(KMIN,M) 

DO 26 1=1, NA 

DO 26 J = 1 , N A 
OELTEMf I , J ) =DEL F Y ( I ,J) 

DO 27 N=KM IN, NA 
DO 27 M= 1 , N A 
DELX0(M,M)=DELX0(N+1,M) 

DELTEM(N,M)=DELFY(N+1*M) 

CALL INVERT ( DE L T EM , DE Y I N , N A , 5 ) 

DO 28 N= 1 , NA 
DO 28 J = 1 , NA 
DY DX I N ( N , J ) =0 . 0 
00 28 M= 1 , N A 

DYDXIN(N,J)=DFYIN(N,M)*DELXO(M,J)+DYDXIN(N,J) 

DO 29 N= 1 , NA 
DELFYD(N)=-FY(KMIN»N) 

DO 30 J = 1 , NA 
DELXD ( J ) =0 .0 
DO 30 L= 1 , NA 

DELXD ( J)=OELFYl)(L>*DYOXIN(L,J)+OELXD( J) 

DO 32 N= 1 , N A 

XO(KMAX,N)=XO(KMIN,N)+nELxn(N) 

(30) THE NEW REFERENCE TRAJECTORY IS INTEGRATED, ITS INITIAL 
AND FINAL CONDITIONS ARE PLACED IN THE XO AND FY LIST PREVIOUSLY 
OCCUPIED BY THE KMAX TRAJECTORY. SEE EQUATION 63 ON PAGE 26 OF 
PAYLOAD OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES, 

(NASA TN-3191). 

ND = 0 


SEE COMMENT 19 
CALL ST ART ( KMAX ) 

SEE COMMENT 20 
IF(MASH.EO.l) GO TO 52 

SEE COMMENT 21 

DO 34 J=NST ,NEQ 

X PR I M ( J , 1 ) =DBL E ( X I NP T ( J ) ) 


K = 0 


SEE COMMENT 22 

CALL DAMODE ( JDATA , 1 ) 


SEE COMMENT 23 

CALL RIJNGEK ( EQUAT 1 ,OUTPT 1 ) 


SEE COMMENT 20 
IF (MASH.EO.l) GO TO 52 


D Z MA 102 37 
ZMAI0238 
ZMAI0239 
ZMAI0240 
ZMAI0241 
ZMAI0242 
ZMAI0243 
Z MA I 0244 
Z MA 10245 
ZM A 1 0246 
Z MA I 0247 
ZMAI0248 
Z MA I 0249 
Z M A I 02 50 
ZMAI0251 
Z M A I 02 52 
Z MA I 02 53 
Z M A I 02 54 
Z MA 102 55 
ZMAI0256 
ZMAI0257 
Z M A 1 02 5 8 
ZMAI0259 
ZMAI0260 
ZMAI0261 
Z M A 1 02 62 
ZMAI0263 
ZMAI0264 
Z MA I 0265 
Z MA 102 66 
ZMAI0267 
Z MA I 02 68 
ZMAI0269 
ZMAI0270 
Z MA 10271 
ZMAI0272 
ZMAI0273 
ZM A I 02 74 
ZMAI0275 
Z M A I 02 76 
ZMAI0277 
ZMAI0278 
ZMAI0279 
ZMAI0280 
ZMAI0281 
Z MA I 02 82 
ZMAI0283 
ZMAI0284 
ZMAI0285 
ZMAI0286 
ZMAI0287 
Z M A I 02 8 8 
Z MA 10289 
ZMAI0290 
Z MA 10291 
Z M A I 0292 


(31) JDATA = 1 WHEN CONVERGENCE HAS NOT BEEN OBTAINED. JDATA 
2 IMPLIES THAT THE CASE IN CONVERGED, JDATA = 3 IS USED WHEN 
A PRESCRIBED PROPELLANT LOADING HAS BEEN EXCEEDED AND THE 


Z MA 10 293 
Z M A I 02 94 
ZMAI0295 
ZMAI0296 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


36 


37 


CONVERGED CASE WITH THE EXCESS PROPELLANT IS PRINTED BEFORE 
THE OFFENDING PROPELLANT LOADING IS FIXED AT MAXI MUM PROPELLANT 
AND RECONVERGED. 

IF( JDATA. NE. 2 ) GO TO 35 


(32) IF RERUN = 1, THE BOOSTER 
BURNING TIME IS INTEGRATED AND 
IS EXCEEDED, CONTROL PASSES TO 
INCREMENTED, MASH IS SET EQUAL 
HALVED IN MAINA. 

IE(RERUN.EO.O) GO 
ASSIGN 54 TO NGO 
GO TO 36 


SEE COMMENT 
TO 51 


WITH THE CONVERGED KICK ANGLE AND 
ITS ERROR COMPUTED. IF THE ERROR 
STATEMENT 54 WHERE MCOUNT IS 
TO ONE WHICH CAUSES DELTK TO BE 
49. 


38 


SECOND TIME. THE CONVERGED 
LOADING HAS BEEN PRINTED. 


35 I F ( JDATA.EO.l ) GO TO 36 

(33) CHECK IS CALLED HERE FOR THE 
CASE WITH THE EXCEEDED PROPELLANT 
CHECK COMPUTES THE FIXED PHASE TIMES FOR THE OFFENDING PRO- 
PELLANT LOADINGS AND SETS NOPT FOR THOSE PHASES TO ZERO. 

CALL CHECK 

JDATA=1 
GO TO 6 

(34) SFF COMMENTS 24, 26, AND 27. 

CALL FINAL (KMAX) 

CALL SCOMP ( 2 ) 

EVP = 0 . 0 
DO 37 J = 1 , NA 

EVP = EVP+(FY(KMAX,J)*SF(J) )**2 

(35) COUNT IS INCREMENTED WHEN A NEW REFERENCE TRAJECTORY IS 
INTEGRATED. IF COUNT EXCEEDS CMAX, THE ITERATION IS ABANDONED 
AND NFW DATA IS CALLED IN. 

COUNT=COUNT+l 

IF (COUNT. GT. CMAX ) GO TO 51 


ZMAI0297 

ZMAI0298 

ZMAI0299 

ZMAI0300 

ZMAI0301 

ZMAI0302 

Z MA 1 0303 

ZM A 10304 

ZMAI0305 

ZMAI0306 

ZMAI0307 

ZM A 10308 

ZMAI0309 

ZMAI0310 

ZMAI0311 

ZMAI0312 

ZMAI0313 

ZMAI0314 

ZMAI0315 

ZMAI0316 

ZMAI0317 

ZMAI0318 

ZMAI0319 

ZMAI0320 

ZMAI0321 

ZM A 1 032 2 

ZMAI0323 

ZMAI0324 

ZMAI0325 

ZMAI0326 

ZMAI0327 

Z MA 1032 8 

ZMAI0329 

ZMAI0330 

ZMAI0331 

ZMAI0332 

ZMAI0333 

ZMAI0334 


(36) FIRST CONVERGENCE TEST . SORT (FVSO) IS A MEASURE OF THE 
CHANGE IN FINAL WEIGHT REQUIRED TO SATISFY THF FINAL CONDITIONS 
BASFD ON THF PAR T I ALS ALRFADY OBTAINED. IF THE ERROR IS LESS THANZMA 1 0335 
SOME DECIMAL FRACTION OF THE INITIAL WEIGHT, THE CONTROL PASSES T0ZMAI0336 
THE NEXT CONVERGENCE TEST. OTHFRWISF ITERATION PROCEEDS UNTIL ZMAI0337 
COUNT EXCEEDS CMAX. SEE EQUATION 64 ON PAGE 26 OF PAYLOAD ZMAI0338 

OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES, (NASA TN-3191). IF ZMAI0339 
RERUN = 1 , THEN AFTER CONVERGENCE THE EXACT BOOSTER IS INTEGRATED ZMAI0340 
AND THE UPPER PHASES ARE REINTEGRATED MAINTAINING THE SAME BUR N I NGZM A 1 0341 


TIMES AND INITIAL THRUST ANGLFS AND RATE. THE ERROR FOR THAT 
TRAJECTORY IS EXAM I NFD UTILIZING THESE EQUATIONS. 

EVSQ(KMAX)=EVP 
EVPSRT=SORT ( EVP) 

IF(SQRT(EVSQ(KMAX)).GT.ERR0R(JDATA)*XINPT(1)) GO TO NGO, (43,54) 

(37) SFCOND CONVERGENCE TEST. IF THF ERROR IN DESIRED FINAL 
CONDITIONS IS LESS THAN SOME DECIMAL FRACTION SPECIFIED IN TOL, 
THE CONVERGENCE IS RECOGNIZED AND THE CONVFRGFD CASF IS PRINTED. 
DO 38 J=1,NA 

IF(ABS(FY(KMAX,J)*COMP( J) ) . GT . TOL ( J , J DA T A ) ) GO TO NGO, (43,54) 

(38) AT THIS POINT, IF JDATA ALREADY EQUALS TWO, THFN THE GRID 
SPACING FOR I HE TABLE HAS PROVED SUFFICIENTLY FINE AND A NEW 
CASE WILL BE READ IN. IF JDATA = 1, THEN JDATA IS SET TO TWO 


ZMAI0342 
ZMAI0343 
Z MA 10344 
ZMAI0345 
Z MA 10346 
ZMAI0347 
ZMAI0348 
Z MA I 0349 
ZMAI0350 
Z MA I 0 35 1 
ZMAI0352 
ZMAI0353 
ZMAI0354 
ZMAI0355 
ZMAI0356 
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c 


c 


AND THE CONVERGED CASF WILL RE PRINTED DDT. 

I F ( JDATA.E0.2 ) GO TO 51 
J DA T A = 2 

(39) CHECK IS CALLED HERF FOR THE FIRST TIME IN A CASE. IF THE 
PROPELLANT LOADING FOR ANY PHASE EXCEEDED THE PRESCRIBED VALUE, 

J DAT A IS SET EQUAL TO THREE AND THE OFFENDING CASE IS PRINTED FOR 
REFERENCE. 

DO 39 J = 1 ,L AST 

39 NOPT S T ( J ) =NOPT ( J ) 

CALL CHECK 

DO 40 J=1 .LAST 

40 IF(NOPT(J).NE.NOPTST(J) ) GO TO 41 

(40) RERUN = 1 INDICATES A CHECK ON THE TKICK GRID SPACING. 

FIXDT = 1 IS A FLAG WHICH INDICATES TO START THAT A NON- 
GRID KICK ANGLE AND SPECIFIC BURNING TIME WILL BE INTEGRATED. 

I F ( RERUN. EO. 1 ) F I XDTK= 1 

GO TO 33 

(41) SEE COMMENT 39. 

41 J DA T A = 3 

DO 42 J = 1 .LAST 

42 NOPT ( J ) =NOPTST ( J ) 

GO TO 33 

(42) EVSO(KMAX) IS THE ERROR FOR THE NEW R E F ER ENC b ( S E E COMMENT 
30). IF THE NEW REFERENCE IS NOT BETTER THAN THE PREVIOUS 
ONE ( KM I N ) , THEN IT IS DESIRABLE TO CUT THE CHANGES IN THE 
INITIAL CONDITIONS. SEE COMMENT 46. 

43 IF(EVSO(KMAX) .GE.EVSQ(KMIN) ) GO TO 4B 

EMAX = AMAX1 ( EVSO( 1 ) ,EVSO( 2 ) , EVSO< 3) ,EVS0(4) , EVSOl 5 ) ,EVSO( 6 ) ) 

IF ( SORT ( ZMIN( EVSQ.NB) ) .GT .ERR*XINPT ( 1 ) ) GO TO 44 

(43) IF THE ERROR OF THE NEW REFERENCE INDICATES THAT 
CONVERGENCE IS CLOSE, THE NEW REFERENCE MAY REPLACE THE WORST 
CASE AND A NEW REFERENCE COMPUTED WITHOUT REPERTURBING. 

GO TO 19 

(44) IF PERTURBATIONS ON THE NEW REFERENCE ARE DESIRED, 

THE XO LIST IS SET UP AND CONTROL IS RETURNED TO STATEMENT 
11 . 

44 DO 45 J = 1 , N A 
DO 45 N = 1 , N B 

45 XO(N,J ) =XO(KMAX,J ) 

DO 46 J= 1 , NA 

46 X0( J + l, J ) = XO ( 1 , J )+X0( 1 ,J )*DX ( J ) 

NR EP = 2 

DO 47 K = 1 , NA 

47 FY(1,K)=FY(KMAX,K) 

F Y ( 1 , 6 ) = FY ( KMAX, 6 ) 

EVSQ ( 1 ) = E VP 
GO TO 11 

(45) IF THE FIRST REFERENCE TRAJECTORY IS BETTER THAN THE SECOND, 
THE ERROR ON THE FIRST IS CHFCKED TO DETFRMINE IF IT IS WITHIN 
THE CONVERGENCE TOLERANCE. IF IT IS NOT WITHIN TOLERANCE, THE 
CHANGES IN INITIAL CONDITIONS FROM THE FIRST REFERENCE TO THE 
SECOND ARE HALVED AND A NEW REFERENCE IS CONSIDERED. 

4fl I F (COUNT. EO. 1 . AND.SORTt ZMIN ( EVSO,NB ) ) .GT.ERR-XINPT ( 1 ) ) GO TO 44 

(46) SEE COMMENT 42. IF THE ERROR FOR THE NEW REFERENCE IS 


ZMAI0357 
ZMAI0358 
ZMA 10359 
ZMAI0360 
ZMA 10361 
ZMAI0362 
ZMA I 0363 
7MAI0364 
ZMA I 0 365 
Z M A I 0 3 6 6 
ZMA I 0367 
ZMA 10368 
ZMA 10369 
ZMAI0370 
ZMA 10371 
ZMAI0372 
ZMA I 0373 
ZMA 10374 
ZMA I 0375 
ZMA I 037 6 
ZMA I 0377 
ZMAI0378 
ZMAI0379 
ZMAI0380 
ZMA 10381 
ZMA I 0382 
ZMAI0383 
ZMA I 0384 
ZMAI0385 
Z MA 10386 
ZMA I 0387 
ZMA 10388 
ZMAI0389 
Z M A I 0390 
ZMAI0391 
ZMA I 0392 
ZMA I 0393 
Z M A I 0 394 
ZMAI0395 
ZMA 10396 
Z MA 10 397 
ZMAI0398 
ZMA I 0399 
ZMA I 0400 
ZMA I 0401 
ZMA I 0402 
Z M A I 0403 
Z M A I 0404 
ZMA I 0405 
ZMA 10406 
ZMA I 0407 
ZMAI0408 
ZMA I 0409 
ZMAI0410 
ZMA I 041 1 
ZMA I 0412 
ZMA I 04 13 
ZMA I 0414 
ZMAI 0415 
ZMA I 0416 


111 


oooooo nnoo o on ooo ooo 


C 

C 


GREATER THAN THF ERROR FOR THE 0L0 REFFRENCE, THE CHANGES 
FROM THE OLD TO THE MEW ARE HALVED UNTIL ND IS GREATER THAN 
NDAMP OR THE NEW REFERENCE ERROR IS LESS THAN THE OLD. 

ND=ND+ 1 

IFtND.GT. NDAMP) GO TO 51 
IF (COUNT. NE. I ) GO TO 49 
KMAX=KMI N 
GO TO 44 

49 DO 50 N= 1 » N A 

50 X0(KMAX,N)=X0(KMIN,N)+DELXD(N)/2.0**ND 
GO TO 33 

(47) A DUMMY ROUTINE AVAILABLE FOR USE AT THF END OF A 
PROBLEM. 

51 CALL STGSS(KMAX) 

RENDER PUNCHES OUT BINARY BOOSTER DATA. 

IF(NDUMP.FC). 1 ) CALL RENDER (2) 

GO TO 1 

(48) IF MASH IS SET TO ONE IN SOME ROUTINE OTHER THAN MAIN, 

THE CHANGE FROM NEW REFERENCE TO OLD IS HALVFD AND A NEW 
REFERENCE IS CONSIDERED. 

52 M A S H = 0 

DO 53 J = 1 , NA 

53 DELXD(J)=DFLXD(J)/2.0 
GO TO 31 

(49) IF MASH IS SET EQUAL TO ONE IN MAIN, IT IS A FLAG TO 
MAI NA TO HALVE DELTK , THE TKICK GRID SPACING. IF AFTER THE 
GRID SPACING IS CUT IN HALF THE NEW ERROR IS NOT LESS THAN 75 
PERCENT OF THE OLD ERROR, THE PROGRAM TERMINATES THE PROBLEM AND 
CALLS IN NEW DATA. 

54 MASH=1 

MC0I)NT = MC00NT + 1 

IF(MC00NT.E0.1.0R.EVSQ(KMAX) . L T . 0 . 75*E VSOST ) GO TO 56 
WRITE (6,55) 

55 FORMAT ( 4BH0N0 IMPROVEMENT WITH CUT IN KICK ANGLE INCREMENT) 

MASH = 0 

GO TO 51 

56 EVSOST=EVSO (KMAX ) 

J DA T A = 1 

GO TO 6 

SEE COMMENT 20 

57 WRITE (6,58) NSTAGF 
GO TO 1 

58 FORMAT ( 42 HO INITIAL CONDITIONS PROHIBIT USE OF STAGE 12) 

END 


ZMAI0417 

ZMAI041R 

ZMAI0419 

ZM A 1 0420 

ZMAI0421 

ZMAI0422 

ZMAI0423 

ZM A 1 0424 

ZMAI0425 

ZMAI0426 

ZMAI0427 

ZMAI0428 

ZMAI0429 

ZMAI0430 

Z MAI 0431 

ZMAI0432 

Z M A I 043 3 

Z MA 1 0434 

ZMAI0435 

Z M A I 0436 

ZMAI0437 

ZMAI0438 

Z MA I 0439 

Z M A I 0440 

ZMAI0441 

Z M A 1 0442 

ZMAI0443 

ZMAI0444 

ZMAI0445 

Z M A 1 0446 

ZMAI0447 

ZMAI0448 

Z MA I 0449 

ZMAI0450 

ZMAI0451 

ZMAI0452 

ZMAI0453 

Z M A 1 0454 

ZMAI0455 

Z M A 1 0456 

ZMAI0457 

Z M A 1 04 58 

ZMAI0459 

Z M A 1 0460 

ZMAI0461 

ZMAI0462 

Z MA I 0463 

ZMAI0464 

Z MA 1 0465 

Z M A I 0466 
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SUBROUTINE MAINA 

SUBROUTINE MAINA CONTROLS THE CHOICE OF KICK ANGLES AMD 
BOOSTER BURNING TIMES UTILIZED IN THE BOOST SUBROUTINE 
INTERPOLATION SCHEME TO ACQUIRE BOOSTER BURNOUT CONDITIONS 
FOR A SPECIFIC KICK ANGLE AND BOOSTER BURNING TIME. 

COMMON /CSTAR/ CMA ( 1 000 ), CMB ( 1000 ) 

COMMON/ AT ABL E/CME ( BOOO) 


ZMAI0001 
Z M A I 000? 
ZMA I 0003 
ZMAI0004 
ZMA I 0005 
ZMAI0006 
ZMA I 0007 
Z M A I 0008 
ZMA I 0009 


DIMENSION 

APT 

( 3 

, 1 00 ) , APTMAX ( 3 

) , BRUM 

(3 ) 

ZMAI 00 1 0 

DIMENSION 

ITR 

(3 

> , I TK (3 

) ,KPT 

(3 ,100) 

ZMA I 00 1 1 

DIMENSION 

RK 

( 5 

) , RKA (5 

) , TB 

(6 ) 

ZMAI 0012 


DIMENSION TBOOST ( 6 
EQUIVALENCE (APT 


* CMA ( 702 ) ) 

* C M ft ( 0 5 8 ) ) 
» CME ( 200 ) ) 
,CMB( 120) ) 
,CMA( 711 ) ) 
,CMB( 180) ) 
» CMB ( 07 3 ) ) 
, CME ( 018 ) ) 
, CMB ( 039 ) ) 
,CME ( 010 ) ) 


) 

tCME (201 ) ) , ( APTMAX , CMB ( 126) ) , < DELMAX 
EQUIVALENCE ( DELTB , CME ( 016 ) ) , ( DELTK , C ME ( 1 99 ) ) , ( DEL TKT 
EQUIVALENCE (ELEV , CM A ( 790 ) ) , ( I BUR. N , CMB ( 072 ) ) , ( I K I CK 
EQUIVALENCE (IMODE ,CMB ( 061 ) ) , ( I TB , CMB ( 1 2 3 ) ) , ( I TK 
EQUIVALENCE (JKICK , CMB < 063 ) ) , ( KP T , CME < 20 1 ) ) , ( L AS T 

EQUIVALENCE (LAST1 ,CMA < 753 )),( MASH ,CMB ( 064 ) ) , ( MODEC 
EQUIVALFNCF ( MODOUT , CMA ( 7 14 ) ) , ( NKICKS,CME (021))* ( NVAR 
EQUIVALENCE (STEPS , CMA ( 704 ) ) * ( TB ,CMA ( 825 ) ) , ( TBL AST 

EQUIVALENCE < TBOOS T , CMA ( 745 ) > , ( TBURN , CMB ( 065 > ) , ( TK I CK 
EQUIVALENCE (TMIN , CMA ( 703 ) ) , ( TM I NS T , CME ( 0 1 9 ) ) , ( T S PM 
EQUIVALENCE (VAR ,CME(501)) 

LOGICAL ALOG 
INTEGER STEPS 

IKICK EQUALS THE NUMBER OF DIFFERENT KICK ANGLES WHOSE 
TRAJECTORIES HAVE BEEN RUN. THESE ARE ARRANGED IN ASCENDING 
ORDER IN A P T ( 1 , J ) . IF NEW KICK ANGLES ARE TO BE RUN, THESE 
ARE PLACED IN BRUN(J) IN ASCENDING ORDER. DELTK IS THE SPACING 

FOR THE KICK ANGLE GRID. NRUN FOUALS THE NUMBER OF NEW 

TRAJECTORIES REQUIRED IN ANY GIVEN PASS THROUGH THF ROUTINE. 

IF THE KICK ANGLE PREDICTED IN THE COURSE OF ITERATION IS 
GREATER THAN 90 DEGREES (WHICH IS AN UNACCEPTABLE KICK ANGLE BY 
DEFINITION), MAINA SETS MASH = 1, AND CONTROL EVENTUALLY BUT 
RAPIDLY RETURNS TO MAIN WHERE THE PREDICTED KICK ANGLF IS 
DECREASED TO UNDER 90 DEGREES. 

IF( TKICK.GE.90.0) GO TO 33 

IE ( MASH.EQ.O ) GO TO 2 

MASH NOT EQUAL TO ONE IMPLIES THAT THE GRID SPACING HAS BEEN 

FOUND TO BE TOO LARGE IN MAIN AMD DELTK IS HALVED. 

MA SH = 0 
NRUN= 1 

DELTK=DELTK/2.0 
CHOOSE NEW KICK ANGLE 

IF ( JK ICK .EO.l .OR . ( JK ICK.EQ. I K I CK . AND . TK I CK . GT . AP T ( 1 , JKICK ) ) ) 

1 GO TO 1 

BRUN ( 1 ) = (APT(1,JKICK)+APT( 1 , JKICK- 1 ) )/2.0 
GO TO 17 


ZMA I 001 3 
ZMA 100 14 
ZMA I 00 1 5 
ZMAI0016 
ZMA I 00 17 
ZMAI0018 
ZMA I 0019 
ZMA 10020 
ZMAI0021 
•ZMA 1 002 2 
ZMA 10023 
Z MA 1 0024 
ZMA I 0025 
ZMA I 0026 
ZMA 10027 
ZMA 1 002 8 
ZMA I 0029 
ZMA I 0030 
ZMA 10031 
ZMAI0032 
ZMA I 0033 
ZMA I 0034 
ZMAI 0035 
ZMA 10036 
ZMA I 0037 
ZMAI0038 
ZMA I 0039 
ZMAI 0040 
ZMA I 0041 
ZMAI0042 
ZMA I 0043 
ZMAI 0044 
ZMA I 0045 
ZMAI 0046 
ZMA I 0047 
ZMA I 0048 
ZMA I 0049 
ZMA 10050 
ZMA I 0051 
ZMAI0052 
ZMA 1 0053 
Z MA 100 54 
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n o n o o 


c 

c 

c 


c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 


1 BRUN( 1 )=APT ( 1 ,JKICK)+SIGN(DELTK, FLOAT (JKICK)-FLOAT ( I KICK)/ 2.0) 
GO TO 17 

2 I F ( IKICK.NE.O.AND. IMODE. NE.O) GO TO 7 


Z MA I 00 55 
ZMAI0056 
ZMAI0057 
ZMAI0058 
ZMAI0059 
ZMAI0060 
ZMAI0061 
Z M A 1 0062 
ZMA I 0063 
ZMAI0064 
ZMA 1 0065 
ZMA 10066 
Z MA I 0067 
ZMA I 0068 
ZMA I 0069 
ZMA I 007 0 
ZMA I 0071 
ZMA I 0072 
ZMA I 0073 
ZMA I 0074 
ZMAI0075 


INTEGRATE VERTICAL RISE AND INITIALIZE IMODE 
IMODE = 0 
CALL MAINB 

CHOOSE THREE GRID KICK ANGLES CLOSEST TO TKICK 

3 TK = FLQAT ( I F I X ( ( TK I CK+ . 05 ) * 1 0 . 0 ) )/10.0 

4 IF(ABS(TK— TKICK). LE.DELTK) GO TO 5 
TK=TK+SIGN(DELTK,TKICK-TK) 

GO TO 4 

5 NRUN= 3 
DO 6 J = 1 * NRIJN 

6 BRUNI J )=TK+ELOAT( J-2)*DELTK 

I E ( IMODE. NE.O) GO T017 
I = 3 
GO TO 25 

ZMA 10076 

THIS SECTION (THROUGH STATEMENT NUMBER 18) INTERROGATES THE LIST ZMAI0077 
OF KICK ANGLES FOR WHICH TRAJECTORIES HAVE BEEN RUN AND DETERM INFSZMA 1 0078 
WHICH OF THESE ARE SATISFACTORY FOR USE IN THE INTERPOLATION ZMAI0079 

SCHEME AND ON THE BASIS OF THOSE ALREADY AVAILABLE, CHOOSES NEW ZMAI0080 
KICK ANGLES TO BE RUN TO COMP L ET F A SATISFACTORY SET OF THREE KICKZMAI0081 

ZMA I 0082 
Z MA 10083 
Z M A I 0084 
ZMA I 008 5 
ZMAI0086 
ZMA 1 0087 
ZMA 10088 
ZMA I 0089 
ZMA 10090 
ZMA 10091 
Z M A 1 0092 
ZMA I 0093 
ZMA 10094 
ZMA I 0095 
Z M A I 0096 
ZMA I 0097 
ZMA 10098 
ZMA I 0099 
ZMAI0100 
ZMA I 0 1 0 1 
Z M A 1 0 102 
ZMA I 0 1 03 
Z M A 1 0 1 04 
ZMA I 0 1 05 
ZMA 10106 
ZMA I 0 107 
ZMAI0108 
ZMA I 0109 
ZMAI01 10 
ZMA I 01 1 1 
ZMAI0112 
ZMA 10) 13 
ZMAI01 14 


ANGLES FOR USE RY THE BOOST SUBROUTINE. 

FIND INTERVAL IN GRID INTO WHICH TKICK FALLS. 

7 IF(TKICK.LT.APT(1,JKICK) ) GO TO 8 
IF(JKICK.EO.IKICK) GO TO 9 
JKICK=JKICK+1 

GO TO 7 

8 IFfJKICK. EO.l. OR. TKICK. GE.APT( 1,JKICK — 1 ) ) GO TO 9 
JKICK=JKI CK— 1 

GO TO 8 

FIN'D THREE CLOSEST GRID KICK ANGLES TO TKICK 

9 J A= MAXO( 1 ,JKICK-2 ) 

JB= M I NO ( IK ICK,JKICK + 2) 

JC = J B-J A+ 1 

DO 10 1=1, JC 

J D= J A+ 1 -1 

RKA ( I )=FLOAT( JO) 

10 RK( I )=A8S(APT ( 1,J0)-TKICK) 

CALL SORTXY(RK,RKA,JC) 

KK = RK A { 1 ) 

RKA ( 1 ) CONTAINS THE NUMBER OF THE CLOSEST KICK ANGLE. 

DETERMINE KICK ANGLE TO BF USED FROM THF EXISTENT KICK ANGLES IN 
THE GRID AND CHOOSE ANY NEW KICK ANGLES WHICH MUST BE INTEGRATED. 
IF(RK(15.GF»2.0*DELTK) GO TO 3 
IF (RK ( 1 ) .LT.DELTK ) GO TO 12 
DELTKP=SIGN(DELTK,T KICK-APT ( 1,KK) ) 

NRUN=2 

DO 11 K = 1,2 
K A=K 
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C 


C 


1 1 


12 


13 


14 

15 

16 
17 


18 


19 


20 


21 


22 


23 


24 

25 

26 


27 


IFIORLTKP.LT. 0.0) KA=3-K 
BRUN(KA)=APT(1,KK)+FL0AT(K)*UELTKP 
GO TO 17 

PICK KICK ANGLES FROM EXISTING GRID FOR INTERPOLATION USE. 
I F( RK ( 3) .LE.3.04DELTK ) GO TO 13 
IFIRKI2) .GT.2.0*DELTK) GO TO 15 
NRUN=1 

BRUN( 1 ) =APT ( 1 ,KK ) + S I GN ( DEL TK , TK I CK- AP T ( 1 , KK ) ) 

GO TO 17 
DO 14 J = 1,3 
KA=RK A ( J ) 

APTMAXf J )=APT ( 1 ,KA) — TKICK 
ITKIJ )=KPT (2,KA) 

GO TO 29 
NRUN=2 

DO 16 J = 1,2 

BRUN(J)=APT(l,KK)+(-1.0)4*J*DELTK 
IFIBRUN(NRUN) .LF.90.0-DELTK) GO TO 19 
NRUN=3 

TK=90.0-4.0*0ELTK 
DO 18 J A= 1 , 3 

BRUN(JA)=TK+FLOAT(JA)*DELTK 


ZMAI0115 
ZMAI0116 
Z MA 10117 
ZMAI0118 
ZMAI0119 
ZMAI0120 
ZMAI0121 
ZMAI0122 
ZMAI0123 
ZMAI0124 
ZMAI0125 
ZM A I 0 1 2 6 
ZMAI0127 
ZMAI0128 
ZMAI0129 
ZMAI0130 
ZMAI0131 
Z MA 10132 
ZMAI0133 
ZM A I 0 1 34 
ZMAI0135 
ZM A I 0 1 36 
ZMAI0137 


COMPARE LIST OF NEW KICK ANGLES TO BE RUN (BRUN(J)) WITH EXISTENT ZMAI0138 
KICK ANGLES AND ELIMINATE ANY DUPLICATION. ZMAI0139 
I = NRUN ZMAI0140 
DO 24 J = 1 , I K I CK ZMAI0141 
K = IKICK-J+1 ZMAI0142 
K A=K+ I ZMAI0143 
IF(ABS(BRUN( I ) -APT ( 1 » K ) ) . GT . 0 . 000001 *DEL TK ) GO TO 22 ZMAI0144 
NRUN=NRUN-1 ZMAI0145 
IF( I.EO.NRUN+1 ) GO TO 19 ZMAI0146 
IF(NRUN.EO.O) GO TO 13 ZMAI0147 
DO 21 J A=1 , NRUN ZMAI0148 
BRUN(JA)=BRUN( JA+1) ZMAI0149 
GO TO 19 ZMAI0150 

ZMAI0151 

ALSO PUT NEW KICK ANGLES IN PROPER POSITION (ASCENDING ORDER) ZMAI0152 
IN APT ( 1 , J ) . ZMA 10153 
IF ( B RUN ( I ).LT.APT(1,K) ) GO TO 23 ZMAI0154 
APT ( 1 ,KA ) = BRUN(I) ZMAI0155 
K PT ( 2 , K A ) = IKICK+I ZMAI0156 
I = 1-1 ZMA 10157 
I F ( I.EO.O) GO TO 27 ZMAI0158 


K A=K A— 1 
GO TO 20 

APT ( 1 ,KA ) = A PT ( 1 , K ) 
KPT(2,KA)=KPT(2,K) 

CONTINUE 
DO 26 J = 1,1 
APT ( 1 , J ) =BRUN ( J ) 
KPT(2,J)=IKICK+J 


INTEGRATION 

OF 

NEW 

KICK 

ANGLES 

IMODE EQUAL 

TO 

ONE 

FOR 

INTEGRATING 


I M0DE=1 


ZMA 101 59 
ZMAI0160 
ZMA 10161 
ZMAI0162 
ZMA 10163 
Z M A I 0 1 64 
ZMAI0165 
ZMAI0166 
ZMA I 0167 
ZMAI0168 
ZMA 101 69 
ZMAI0170 
ZMA I 0 1 7 1 

BOOSTFR AFTER VERTICAL RISE ZMAI0172 

ZMA 10173 
ZMA I 0174 
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c 


TBLAST EQUALS MAXIMUM TIME IN BOOST TABLF 

ZMAI0175 



TBOUST ( L AST 1 ) =TBL AST 

ZMAI0176 

c 



ZMAI0177 

c 


CONTROLS EUR PRINT OUT (SEE STEP) 

ZMAI0178 



ST EPS = 1 000 

ZMAI0179 



TM I N= TM I NST 

ZMAI0180 



DELMA X = DELTB 

ZMAI0181 

c 



ZMAI0182 

c 


PRINT HEADINGS 

ZMAI0183 



CALL OUT PT 2(0) 

Z M A 1 0 184 



DO 2 8 J = 1 , NRUN 

ZMAI0185 

c 



ZMAI0186 

c 


SET MODOUT FOR INTEGRATING TABLE TRAJECTORY 

ZMAI0187 



MOOOUT = 1 

ZMAI0188 

c 



ZMAI0189 



I BURN=0 

ZMAI0190 



ELEV = BRIJN( J ) 

ZMAI0191 



IF(MODEC.NE.l) WRITE (6,34) EL FV 

ZMAI0192 

c 



ZMAI0193 

c 


INCREMENT IKICK BY ONE FOR EACH NEW TRAJECTORY 

Z M A 1 0 1 94 



IKICK=IKICK+1 

ZMAI0195 

c 



Z M A I 0 1 96 

c 


INTEGRATION OF NEW KICK ANGLES CONTROLLED BY MAINB 

ZMAI0197 



CALL MAINB 

ZMAI0198 

c 



ZMAI0199 


2 8 

K PT ( 3 , IKICK) = I6URN 

ZMAI0200 

c 



ZMAI0201 

c 


RESET LAST 

ZMA 10202 



L A ST = 5 

ZMAI0203 

c 



ZMA I 0204 

c 


SET IMODE EQUAL TO TWO FOR UPPER STAGE OPERATION. 

ZMA I 0205 



I M0DE=2 

Z M A 1 0206 



GO TO 7 

ZMA I 0207 


29 

KK= I TK ( l ) 

ZMA 10208 

c 



ZMA I 0209 

c 


DETERMINE BOOSTER BURNING TIMES TO BE USED IN INTERPOLATION 

ZMA 10210 

c 


SCHEME. ITB(J) S CORRESPOND TO THE TIMES OF BOOSTER BURNOUT 

ZMA I 02 1 1 

c 


POINTS. 

ZMA I 02 12 



TB(JRN = TB ( 1 ) + T SPM 

ZMAI0213 



I TB ( 1 ) = I F I X ( ( TBURN + DELTB/2.0-TMINST)/0FLTB) + l 

Z M A I 02 1 4 



I F ( I T B ( 1 ) .LT.l.OR. ITB( 1 ) .GT.KPT (3,KK) ) GO 10 33 

ZMA I 02 1 5 



ALOG= I TB ( 1 ) .GT.l 

Z M A I 0 2 1 6 



I F ( ALOG.AND. I T B ( 1 ) .LT.KPTI 3,KK ) ) GO TO 31 

ZMAI0217 



IF(ALOG) GO TO 30 

ZMAI0218 



I TB ( 2 ) =K PT (3,KK)-1 

ZMA I 02 19 



I TB ( 3 ) = I TB ( 2 ) -1 

Z M A 1 02 2 0 



GO TO 32 

ZMA 10221 


30 

I TB ( 2 ) =2 

ZMA 10222 



I TB ( 3 ) =3 

ZMAI0223 



GO TO 32 

Z M A 1 0224 


31 

ITB(2 ) = I TB ( 1 ) — I F I X ( SIGN ( 1 .0, FLOAT ( I TB ( 1 ) ) *DFLTB-TBURN+TM I NST ) ) 

ZMA I 0223 



ITB(3)=ITB(1)+ISIGN(1,ITB(1)-ITB(2)) 

ZMA I 0226 

c 



ZMA 10227 

c 



ZMAI0228 

c 


BOOST PERFORMS INTERPOLATION. 

ZMA 10229 


32 

CALL BOOST (VAR, N VAR, N KICKS) 

Z M A 1 0 2 3 0 

c 



ZMAI0231 



R F TURN 

ZMA I 02 32 


33 

M A S H = 1 

ZMA I 0233 



RETURN 

ZMA 10234 


34 

FORMAT ( 14H0KICK ANGLE = ,G14.7) 

ZMA I 0235 



END 

ZMA 1 02 36 
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C 


SUBROUTINE MAI NB 


SUBROUTINE MAINB PERFORMS THE INITIALIZATION NECESSARY 
FUR INTEGRATING THE BOOSTER PHASE INCLUDING THE VERTICAL 
RISE PURTION. THE TIME INTERVAL ( DELTB ) BETWEEN TABLE STORAGE 
POINTS IS CALCULATED IN THIS ROUTINE. 


COMMON /CSTAR/ CM A ( 1 OOO ) , CMB ( 1 OOO ) 
COMMON /ATABLE/ CME(BOOO) 

DIMENSION ANGL EB ( A ),ANGLES(4 

DIMENSION PERB <2 ),RB (5 

DIMENSION TBOOST ( 6 ),TS (6 

DIMENSION X (100 ),XPRIM (100,2 

EQUIVALENCE (A , CME ( 004 ) ) , ( AL T 

EQUIVALENCE ( ANGL E B , CME ( 02 5 ) ) , (ANGLES, 
EQUIVALENCE (B , CMA ( 8 14 ) ) , ( DELT 

EQUIVALENCE ( DELTB T,CMA( 803 ) ) , ( ELEV 
EQUIVALENCE (FUELT , CME ( 0 14 ) ) , ( HAR DB , 
EQUIVALENCE (HSTORE ,CME (012 ) ) , ( IKCKST, 
EQUIVALENCE (IMODE , CMB ( Oft 1 ) ) , ( JCOST , 
EQUIVALENCE (LAST , CM A ( 7 1 1 )) , ( L AST 1 , 
EQUIVALENCE ( NK I CK S , CME ( 02 1 ) ) , ( NS T AGE , 
EQUIVALENCE (0BLATN,CME(002)),(OBLATS, 
EQUIVALENCE ( R A D I US , CME ( 0 1 3 ) ) , ( R B , 

EQUIVALENCE (SINA ,CMA { 79 1 ) ) , ( STOA , 
EQUIVALENCE ( TBO , C ME ( 0 1 7 ) ) , ( TBOOST , 

EQUIVALENCE ( TK T I ME , CMA ( 804 ) ) , (TMINST, 
EQUIVALENCE (TSPM , CME ( 0 1 0 )),( T S TART , 
EQUIVALENCE (VEL ,CME ( 001 ) > , ( VSTART , 
EQUIVALENCE ( WT FL OW , CM A ( 733 ) ) , (WTO 
EQUIVALENCE (XPRIM , CMA ( 00 1 ) ) , ( X STORO , 
DOUBLE PRECISION XPRIM, TIME 
EXTERNAL EOU AT 2 , OUT PT2 
DATA RADOEG/57. 2957795/ 

SINA ( 1 ) =S I N( ANGLES ( 1 ) /RADDEG) 

NST AGE= 1 


) , H AR DB (6 
) , S I N A (4 
) , WT F LOW ( ft 
) , X STORO ( 4 
CME ( 005 ) ) , ( ALTE 
CMA ( 786 ) ) , ( ASTART 
CMA (701) ) , (DELTB 
CMA ( 790 ) ) , ( ESTART 
CMA (721 ) ) , ( HARDBT 
CMB ( 066 ) ) , ( IKICK 
CMB ( 1 2 9 ) ) , (JKICK 
CMA ( 753 ) ) , ( NK I CK 
CMA ( 710 ) ) , ( NVAR 
CMA (815) ) , (PERB 
CMA ( 754 ) ) , ( REVOLV 
CMA (813) ) , ( TBL AST 
CMA ( 745 ) ) , ( T IMF 
CME (019 ) ) , ( TS 
C M A ( 7 9 6 ) ) , ( V A T 5 
CMA (797 ) ) , ( WSTORE 
CMA ( 720 ) ) , (X 
CME ( 006 ) ) 


) 

! 

, CMA ( 805) ) 
,CMA ( 798 ) ) 
, CME ( 0 1 6 ) ) 
,CMA< 795 ) ) 
, C M E ( 0 1 5 ) ) 
, CME ( 200 ) ) 
, C MB ( 083 ) ) 
, CME (020) ) 
, CMB ( 073 ) ) 
, CMB (055 ) ) 
, CMA ( 799 ) ) 
, C ME ( 018 ) ) 
, C M A ( 017 ) ) 
,CMA( 932 ) ) 
, CMA (788) ) 
*CME ( Oil ) ) 
, C M A ( 40 1 ) ) 


SET JCOST TO BYPASS COAST ROUTINE 
JCOST = 1 


I F ( IMODE. NE.O) GO TO 7 

IMODE EQUAL TO ZERO IMPLIES THAT A VERTICAL RISE IS TO RE 
INTEGRATED. IMODE NOT EQUAL TO ZERO IMPLIES THAT THE ZERO ANGLE 
OF ATTACK PORTION IS TO BE INTEGRATED. 

INITIALIZE IKICK AND JKICK 
I K I CK =0 
JK I CK = 1 

NKICK=7500/25/NVAR 
NKICKS=25*NK ICK 
FUELT=0.0 
TSPM=TSTART 


ZMA 10001 
Z M A I 0002 
ZMA I 0003 
Z M A I 0004 
ZMA I 0005 
ZMA I 0006 
ZMA I 0007 
Z M A I 0008 
ZMA 10009 
ZMA I 00 1 0 
ZMA I 00 1 1 
ZMAI0012 
ZMA I 00 1 3 
Z MA I 00 14 
ZMA I 0015 
ZMA 10016 
ZMA 10017 
ZMA I 00 1 8 
ZMA 10019 
ZMA 10020 
ZMA I 0021 
Z MA I 002 2 
ZMA I 002 3 
ZMA I 0024 
ZMA I 0025 
ZMAI0026 
ZMA I 0027 
ZMA 10028 
ZMA I 0029 
Z MA I 0030 
ZMA I 003 1 
Z M A I 0 0 3 2 
ZMA I 0033 
Z M A I 00 34 
ZMA I 0035 
ZMAI0036 
ZMA I 0037 
ZMA I 0038 
ZMA I 0039 
ZMA 10040 
ZMA I 0041 
Z M A I 0042 
ZMA I 0043 
ZMA I 0044 
ZMA I 0045 
ZMA 10046 
Z M A I 0047 
ZMA I 0048 
ZMA I 0049 
ZMA I 0050 
ZMA I 0051 
ZMAI0052 
ZMA I 0053 
Z M A I 0054 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


HARDRT = 0.0 
IKCKST = 0 

TBO EQUALS WEIGHT AT BEGINNING HE TARLF STORAGF. 

TRO=PERR ( 1 )4WT0 

LASTI GREATER THAN ONE IMPLIES THAT A MUL T I -SEGMENT BOOSTER IS 
DESIRED. 

IFILAST1 .NE.l ) GO TO 1 


TBLAST EQUALS TIME AT END OF TABLE STORAGE. 

TBLAST = PERB< 2 )*WTO/WTFLOW ( 1 l + TSTART 

TMIMST EQUALS TIME AT BEGINNING OF TABLE STORAGE. 
TMINST=TBO/WTFLOW( 1 l+TSTART 

DELTR EQUALS TIME INTERVAL BETWEEN STORAGES. 

DELTR=( TBLAST-TMINST 1/24.0 

GO TO 3 

THE BEGINNING* END, AND INTERVAL OF TABLE STORAGE ARE CALCULATED 
FOR A MULTI-SEGMENT BOOSTER. 

1 LAST1A=LAST1-1 

DO 2 J = 1,LAST1A 
TSPM=TSPM+TBOOST( J I 
HARDBT=HARDBT+HARDB(J ) 

2 FUEL T = FIJELT + WT FLOW! J)*TBOOST( J ) 

TM I NST= ( TBO- FUEL T-HARDBT ) /WTFLOWI LASTI l+TSPM 
T8LAST=(PERB(2) 4WT O-FUEL T-HAR DBT )/WTFLOW(LASTI ) 

DELTR=( TSPM+TBLAST-TM INST 1/24.0 

THIS SECTION PREPARES THE INITIAL STATE CONDITIONS WHICH ARE 
CONVERTED INTO RECTANGULAR COORDINATES IN TIJDES. 

ESTART ELEVATION ANGLF AND EQUALS 90 DEGRFFS 

TSTART INITIAL TIME 

ASTART INITIAL ALTITUDE 

OBLATN ONE IF UR LATENESS IS USED, ZERO IF NOT 

3 ANGLES(4)=ESTART 
TIME=DBLE(TSTART) 

VEL=VSTART 

ALT=ASTART 

OBL ATN = OBL AT S 
A = S TO A 

IF (ORLATN.NE.O.O) GO TO 4 
A = A*B/S0RT(B*42+( A4*2-R4 ; S =2 ) *S I N A ( 1 ) 4*2 ) 

R ADIUS=A+ALT 
GO TO b 

4 RADIUS = A4R/S0RT (B*'*2+( A442-B*42)4SIMA( 1 )4*2 l+ALT 

5 CALL TUDES 

XSTORO STORES THE INITIAL X, Y, Z COMPONENTS OF RADIUS FOR USE 
IN CALCULATING TRAVEL ANGLE, ETC. 

X STORO ( 1 ) =SNGL <XPRIM(6,ll) 

XST0R0(2)=SNGL(XPRIM(7,I ) ) 

XSTOROI 3)=SNGL ( XPRIM( 8, 1 ) ) 

XSTOROI 4) =D0T ( X ST ORO , X STORO ) 

L A S T = 1 


ZMAI0055 
Z M A I 0056 
ZMAI0057 
ZM A 1 005 8 
Z MA I 0059 
Z M A I 0060 
ZMAI0061 
Z M A I 0062 
ZMAI0063 
Z M A 1 0064 
ZMAI0065 
Z MA I 0066 
ZMAI0067 
ZMAI0068 
ZMAI0069 
ZMAI0070 
ZMAI0071 
ZMAI0072 
ZMAI0073 
ZMA 10074 
ZMAI0075 
ZMA 1 0076 
ZMA I 0077 
ZMA 1 007 8 
ZMA I 0079 
Z M A 1 0080 
ZMA I 008 1 
ZMA 1 0082 
Z MA I 0083 
ZMA I 0084 
ZMA I 0085 
Z M A I 0086 
ZMA 1 0087 
ZMA 1 0088 
ZMA I 0089 
ZMA 10090 
ZMA 10091 
ZMAI0092 
ZMA I 0093 
ZMA I 0094 
ZMA I 0095 
Z M A I 0096 
ZMA I 0097 
ZMA I 0098 
ZMA I 0099 
ZMAI0100 
ZMAI0101 
Z M A 1 0 102 
ZMA I 0 103 
Z M A I 0 1 04 
ZMA I 0105 
Z M A I 0 1 06 
ZMA I 0107 
ZMA 10108 
ZMA 10109 
ZMAI0110 
ZMA I 0 1 1 1 
ZMAI0112 
ZMAI0113 
7MAI0114 
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c 

c 


TKTIME IS THE LENGTH OF VERTICAL RISE 
T S ( 1)=TKTIME+T START 


HEAT INTEGRAL POSITION IN XPRIM (SEE RtJNGEK ) IS ZEROED. 
XPRIMd, 1)=0.000 


WTO IS THE INITIAL GROSS WEIGHT. 
XPRIM(2*1)=DRLE(WT0) 


OUTPT2IO) PRINTS HEADINGS 
CALL OUT P T2 ( 0 ) 

SETUP PREPARES THE CONTROL PARAMETERS (MODOUT, MODS, ETC.) FOR 
STEP. 

CALL SETUP 


RUNGEK INTEGRATES THE REQUIRED TRAJECTORY. 

C ALL RUNGEK ( EOUAT 2 , 1 IUTPT2 ) 

X ( 1 ) IS THE HEAT INTEGRAL AT THE END OF THE VERTICAL RISE. 
HS TOR E= X ( 1 ) 


WS TOR E STORES THE WEIGHT AT THE END OF THE VERTICAL RISE. 
WSTORE=X ( 2 ) 

ANGLES STORES THE INERTIAL LATITUDE, LONGITUDE, AND AZIMUTH 
AT THE ENO OF THE VERTICAL RISE. 

ANGLER (1 )=ARSIN(RB<3)/RB<5) )*RADDEG 
ANGLFB ( 2 )=ARCTAN(RB(2 ) ,RB( 1 ) ) *R ADDEG 
ANGLEB(3)=ANGLES(3) 

ALT IS A STORAGE FOR ALTITUDE AT THE END OF THE VERTICAL RISE 
A L T = A L T E 


VEL IS A STORAGE FOR VELOCITY AT THE END OF THE VERTICAL RISE 
VEL = V A T 5 

RADIUS IS A STORAGE FOR THE RADIUS AT THF END OF THE VERTICAL 
RISE. IT IS COMPUTED DIFFERENTLY DEPENDING ON WHETHER THE 
OBLATE EARTH MODEL IS UTILIZED. 

IF(OBLATN.EO.O.O) GO TO 6 

RADIUS=A*B/SQRT ( B**2+ ( A**2-B**2 > *S I NA ( 1 ) #*2 ) +AL T 
RETURN 

6 RADI IJS = A + AL T 
RETURN 

THE REMAINING PORTION OF THIS ROUTINE CONTROLS THE INTEGRATION 
OF THE PORTION OF THE BOOSTER AFTER THE VERTICAL RISE. 

ELEV EQUALS THE KICK ANGLE AND IS SET IN MAINA 

7 ANGLER ( 4 ) =EL E V 

TUDES CONVERTS LATITUDE, LONGITUDE, AZIMUTH, ELEVATION ANGLE, 


ZMAI0115 
Z M A I 0 1 1 6 
ZMAI0117 
ZMAI01 18 
Z MA 10119 
ZMAI0120 
Z MA 10121 
ZMA 10122 
ZMA 10123 
ZMAI0124 
ZMA I 0 1 2 5 
ZMA I 0126 
ZMA 10127 
Z M A I 0 1 2 8 
ZMA 101 29 
ZMAI0130 
ZMAI 0131 
ZMAI0132 
ZMA 10133 
ZMAI0134 
ZMA 10135 
Z M A I 0 1 36 
Z M A I 0 1 37 
ZMAI0138 
ZMA 101 39 
ZMAI0140 
ZMA I 0 1 A 1 
ZMAI0142 
ZMAI0143 

ZMAI0144 

ZMAI0145 
ZMA I 0146 
ZMA I 0147 
ZMA 10148 
ZMA 101 49 
Z M A I 0 1 50 
ZMA I 0 1 5 1 
ZMAI0152 
ZMAI0153 
ZMA I 0154 
ZMA 10155 
ZMAI0156 
ZMA 10157 
ZMA 101 58 
Z M A I 0 1 59 
ZMA 1 0 1 60 
ZMA 10161 
ZMA 10162 
ZMA 10163 
Z M A I 0 1 64 
ZMA 10165 
ZMA I 0166 
ZMA 10167 
ZMAI0168 
ZMA 10169 
ZMAI0170 
ZMA 10171 
ZMA 10172 
ZMA 10173 
Z M A I 0 1 74 
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C AND VELOCITY TO R FC T ANGULAR COORDINATES. 

CALL TIJDES 
C 

T I ME = DBL E I TKTIME+TSTART) 

LAST=LAST1 

SET HEAT TO VALUE AT END OF VERTICAL RISE. 
XPRIMI 1,1 )=DBLE (HSTORF ) 


SET WEIGHT TO WEIGHT AT END OF VERTICAL RISE. 
XPRIMI 2,1 ) =DBL F ( WSTOR E ) 


THE TS ARRAY CONTAINS THE TIMES AT WHICH PHASE CHANGES OCCUR 
DURING THE BOOSTER. 

TSI 1 ) =T ST AR T + TBOOS T ( 1 ) 

IF (LAST1 . EQ . 1 ) GO TO 9 
DO 8 I = 2 , L AST 1 

8 TSI I ) = TSI 1-1 H-TBOOSTI I ) 

9 DELT = AMIN1 (DELTBT , T S I 1 ) - T I M E ) 

RUNGEK INTEGRATES THF TRAJECTORY. 

CALL RUNGEK I EQUAT2 ,0UTPT2 ) 

C 

RETURN 

END 


ZMAI0175 
ZMAI0176 
ZMA 10177 
ZMAI0178 
ZMAI0179 
ZMA 10180 
ZMA 10181 
ZMAI0182 
ZMA 10183 
ZMA 10184 
ZMA I 0 1 8 5 
Z M A 1 0 1 86 
ZMA 10187 
ZMAI0188 
ZMA 1 0 1 89 
ZMAI0190 
ZMA I 0191 
ZMAI0192 
ZMA 10193 
Z M A I 0 1 94 
ZMA I 0195 
ZMAI0196 
ZMA I 0197 
ZMA 10198 
ZMA I 0199 
Z M A I 02 00 
ZMAI0201 
Z M A I 0 2 0 2 
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SUBROUTINE OBLATE 


Z0BL0001 


THIS SUBROUTINE COMPUTES THE OBLATENESS ACCELERATIONS 

3RD, AND 4TH 
AND OBLATD 


EARTH. THE 2ND, 
OBLATJ, OBLATH, 
LOADED IN DATAB. 


(OBLAT) DUE TO AN AXIALLY SYMMETRIC 
SPHERICAL HARMONIC COEFFICIENTS ARE 
RESPECTIVELY. THESE CONSTANTS ARF 
COMMON /CSTAR/ CMA t 1000) ,CMB ( 1000 ) 

DIMENSION OBLAT (3 ),RB (5 

EQUIVALENCE (A ,CMA (813) ) , ( GM 

EQUIVALENCE ( OB L A TD , CMA ( 8 1 6 ) ) , ( OBL ATH , C M A ( 8 1 7 ) ) , (OBL 
EQUIVALENCE (R6 ,CMA(754)) 


) 

, CMA ( 715 )>, (OBLAT ,CMA(?RO)) 
A T J , C M A ( RIB)) 


Z0BL0002 
ZORL0003 
Z08L0004 
ZOBL0005 
Z0BL0006 
Z OBL 000 7 
ZOBLOOOB 
Z08L0009 
Z ( iBLOO 1 0 
Z0BL001 1 
Z0BL0012 
Z0BL0013 
Z0BL0014 


AA 

= 

RB(3)/RB(5) 

Z0BL0015 

AB 

= 

RB( 3 ) *#2/ RB ( 4 ) 

Z0BL0014 

AC 

= 

A **2/RB(4) 

Z OBL 001 7 

AD 

= 

GM/RB(4)/RR(5)*AC 

Z0BL0018 

AE 

= 

OBLATJX'AD 

ZOBL0019 

AF 

= 

OBLATH*AD* A/RB ( 5 ) 

Z0RL0020 

AG 

= 

ORLATD*AD*AC 

Z0BL0021 

AH 

= 

AE*(5.0*AR-1.0)+AF*( 7 .0*AB-3 . 0 ) *AA+AG* ( 6 . 0*AB-9 . 0*AB**2- 

. 42 85 Z OBL002 2 


1 7 1 4-2 8 E + 00 ) 

OBLAT ( 1 ) = AH*R B ( 1 ) 

OBLAT ( 2 ) = AH*RB(2) 

0BLAT(3)=(AH-2.0*AE+AG*(4.0*AB-.17142857lE+01 ) 
1 • 6 ) *RB ( 5 ) 

RETURN 

END 


Z0BL0023 
Z OBL 002 4 
Z0BL0025 

*RB< 3 )-AF*( 3.0*AB-OZUBL0026 

ZUBL0027 

Z0BL0028 

Z0BL0029 


FUNCTION ODDMOD IS SIMPLY AM IMPROVEMENT OF 
LIBRARY MOD BY MAKING ALGEBRAIC SIGN OF 
ARGUMENT 1 AND ARGUMENT 2 IDENTICAL BEFORE 
PERFORMING MOD. 

FUNCTION ODDMOD ( A1 ,A2 ) 

100 A1=A1+A2 

I F ( A 1 / A2 ) 100,101,101 

101 ODDMOD=AMOD( A1 , A2 ) 

RETURN 

END 


Z0DM0001 
Z0DM0002 
ZUDM0003 
Z 0DM0004 
ZUDM0005 
ZODM0006 
Z0DM0007 
ZUDM0008 
Z0DM0009 
ZODMOOIO 
ZO DMOO 11 
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SUBROUTINE ORBEL 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE ORBEL COMPUTES ORBIT ELEMFNTS FROM THE POLAR 
COORDINATES IN WHICH THE UPPER PHASFS ARE INTEGRATED. 

COMMON /CSTAR/ CM A ( 1 OOO ) , CMB ( 1 OOO ) 


EQUIVALENCE (E 
EQUIVALENCE (P 
EQUIVALENCE (R 
EQUIVALENCE (TP 
EQUIVALENCE (V 


,CMA (905 ) ) , ( EM 
t CMA ( 906 ) I , ( PER 1 01 
,CMA (402 ) ) , ( THETA 
t C M A ( 9 0 7 ) ) , (TPD 
,CMA ( 889 ) ) 


( 715 ) ) , ( OMEGA 

, CMA i 

[405 

(910 ) ) , ( PHI 

, CMA 1 

[403 

(909) ) , ( TIME 

,CMAI 

[ 409 

( 908 ) ) , ( U 

, CMA 1 

[404 


DEFINITIONS AND UNITS FOR VARIABLES APPEARING IN THIS ROUTINE. 


EM 

OMEGA 

E 

P 

PERIOD 

PHI 

THETA 

TP 

TPD 

V 

II 

R 


RSQ = R*R 


GRAVITATIONAL CONSTANT FOR THE EARTH 

ANGULAR VELOCITY 

ECCENTRICITY 

SEMILATUS RECTUM 

PERIOD OF THE ELLIPSE 

TRAVEL ANGLE 

TRUE ANOMALY 

TIME OF PERIGEE 

TIME OF PERIGEE DEPARTURE 

VELOCITY 

RADIAL VELOCITY 

RADIUS, MEASURED FROM THE CENTER OF 
THE EARTH 


FT**3/SEC**2 

RAD/SEC 

FT 

SEC 

RAD 

DEG 

SEC 

SEC 

FT/SEC 

ET/SEC 

FT 


CALCULATE SEMILATUS RECTUM 
P = (RSQ*OMEGA)#(RSO#OMEGA)/EM 

VSO = U*U + RSO*(JMEGA*UMEGA 
V = SORT(VSQ) 

IF(U.NE.O.O) GO TO 2 


20RB0001 

ZORB0002 

Z0RB0003 

ZORB0004 

ZORB0005 

Z0RB0006 

ZORBOOO? 

ZURB0008 

ZORB0009 

ZORBOOIO 

Z0RB001 1 

Z0RB0012 

Z OR BOO 1 3 

Z0RB0014 

ZORB0015 

ZORB0016 

Z OR BOO I 7 

Z0RB0018 

ZUR BOO 1 9 

ZORB0020 

Z0RB002 1 

Z0RB0022 

Z0RB0023 

Z0RB0024 

Z0RB0025 

ZORB0026 

ZORB0027 

ZDRB0028 

ZORB0029 

Z0RB0030 

ZURB0031 

Z0RB0032 

Z0RB0033 

Z0RB0034 

ZORB0035 


C 



Z0RB0036 

C 


ORBIT ELEMENTS FOR CIRCULAR ORBIT 

ZORB0037 



c 

• 

o 

II 

a. 

h— 

ZORB0038 



E =0 . 0 

Z0RB0039 



TPD = 0.0 

Z0RB0040 



SINT = 0.0 

Z0RB0041 



COST = 1.0 

ZURB0042 



THETA = 0.0 

Z0RB0043 

C 



Z0RB0044 

C 


CALCULA1E PERIOD OF CIRCULAR ORBIT 

ZORB0045 


1 

PERIOD = 6.2831853*R*S0RT(R/EM) 

Z0RB0046 

C 



Z0RB0047 



RETURN 

Z0RB0048 

C 



ZURB0049 

C 


CALCULATE ECCENTRICITY 

Z0RB0050 


? 

E = SORT ( 1.0-P*(2.0/R-V SO/EM) ) 

ZOR BOOS 1 

C 



ZORB0052 



IE(E.EP.O.O) GO TO 1 

ZORB0053 

C 



Z0RB0054 

C 


CALCULATE TRUE ANOMALY 

Z0RB0055 



COST = (P/R-l.OI/E 

Z0RB0056 
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SINT = U*SQR T ( P / FM ) / E 

THETA = ARCTAM ( S I NT , C 0 S T ) *57 .295 7791) 

CALCULATE TIME UF PERIGEE DEPARTURE 
ECUST = 1.0+E*C0ST 
EPAR1 = ABS( L.O— E*E) 

EPAR2 = SORT ( EPAR I ) 

IFICOST.NE. (-1.0) )G0 TO 3 

TPDPAR = .314159265F+01/ ( EPAR1*EPAR2 ) 

GO TO 7 

3 TANPAR = SINT/I l.O+COST) 

IF(E-l.O) 6,4,5 

4 TPDPAR = ( ECOST+1 .0>*TANPAR/ ( 3.0*FC0ST ) 

GO TO 7 

5 TPDPAR= E*SINT/<EPAR1*EC0ST)-AL0G< < E+ 1 . O+EP AR 2*T A NPAR ) / ( E+ 1 . 0- 
IPAR2*TANPAR ) ) / ( EPAR1&EPAR2 ) 

GO TO 7 

6 TPDPAR = -E*SINT/(EPARl*EC0ST)+2.0*ATAN(EPAR2*TANPAR/< 1.0 + E) )/ 
1EPAR1*EPAR2 ) 

CALCULATE PERIOD OF ELLIPSE 

PERIOD = 6.2831853*P*SORT(P/FM)/(EPARl*EPAR2) 

7 TPD = TPDPAR *P#SQRT ( P/FM) 

CALCULATE TIME OF PERIGEE 
TP = TIME-TPD 

RETURN 

END OF FORTRAN STATEMENTS 
END 


ZURB0057 
ZURB0058 
Z0RB0059 
Z0RB0060 
Z0RB006I 
Z0RB0062 
Z OR B0063 
ZURB0064 
Z0RB0065 
Z0RB0066 
Z0RR0067 
Z0RB0068 
Z0RB0069 
Z0RB0070 
FZ0RB007I 
ZURB0072 
Z0RB0073 
( Z0RB0074 
Z0RB0075 
Z0RB0076 
Z0RB0077 
ZUR60078 
ZORB0079 
Z0RB0080 
Z0RB0081 
Z0RB0082 
Z0RB0083 
ZORB0084 
Z0RB0085 
Z0RB0086 
Z0RR0087 
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nil 


SUBROUTINE ORBEL2 


SUBROUTINE 0RBEL2 CALCULATES ORBIT ELEMENTS AND RELATED 
INFORMATION FROM THE RECTANGULAR COORDINATES IN WHICH THE 
ROOSTER IS INTEGRATED. 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMON 
COMMON 
DIMENS I 
D I MENS I 
DIMENSI 
EOIJI VAL 
EOUIVAL 
EOIJI VAL 
EOUIVAL 
EOIJI VAL 
EOUIVAL 
EOUIVAL 
EOUIVAL 
EOUIVAL 
EOIJI VAL 
EOIJI VAL 


/ATABLE/ CME 
/CSTAR/ CMA ( 
ON H (5 

ON R IC ( 5 

ON X STORE ( A 
ENCE (ALTE 
ENCE (BETAI 
ENCE (EM 
ENCE (PERIOD 
ENCE (RANGE 
ENCE (RE 
FNCE (TIME 
ENCE (TRAVLI 
ENCE (X 
FNCE (ZINCLR 
ENCE (Z NODE I 


(8000) 

1000) ,CMB ( 1000) 

) , HATM (5 ), 

) * V ATM (5 ), 

),XST0R(J(4 ) 

f CMA ( 80b) ) , ( AZ IMI ,CMA( 
,CMA(917) ), (BETAR ,CMA( 
,CMA ( 715) ) , (H f CMA ( 

,CMA(910) ) , (PHI I , CMA ( 
,CMA<914) ) , (RB .CMA ( 
, CMA (924) ) , (REVOLV.CMAt 
,CMA (409 ) ) , ( TP . C M A ( 

,CMA(913) ) , (VATM . CMA ( 
, CMA (401 ) ) , { XS TORO, CME ( 
,CMA(920) >,(ZLAT ,CMA( 
.CMA (923 )) 


RB 

VX 


(b 
( 5 


921 ) ) , ( AZ IMR 
918 ) ) , (E 
769)), (P 
91 1 ) ) , ( PHIR 
754) ) , ( R DOT 
799 ) ) , (THETA 
907 ) ) , ( TPD 
764) ) , ( VX 
006) ) , (Z INCLI 
916 )) , ( Z LUNG 


) 

, C M A ( 
,CMA ( 
, CM A ( 
, CMA ( 
, C MB ( 
, CMA ( 
,CMA( 
, CM A ( 
, CMA ( 
, CMA ( 


922 ) ) 

905) ) 

906) ) 
912 ) ) 
155) ) 
909) ) 
908 ) ) 
759) ) 
919) ) 
915) ) 


DEFINITIONS AND UNITS FOR VARIABLES APPEARING IN THIS ROUTINE 


ALTE 

ALTITUDE ABOVE OBLATE EARTH 

FT 

AZ IMI 

INERTIAL AZIMUTH HEADING 

DEG 

AZ IMR 

RELATIVE AZIMUTH HEADING 

DEG 

BETAR 

RELATIVE FLIGHT PATH ANGLE 

DEG 

E 

ECCENTRICITY 


FM 

GRAVITATIONAL CONSTANT FOR EARTH 

FT**3/S 

H 

ANGULAR MOMENTUM VECTOR 

FT 4-4-2/S 

PERIOD 

PERIUD OF ELLIPSE 

SEC 

PHIR 

RELATIVE TRAVEL ANGLE 

DEG 

PHI I 

INERTIAL TRAVEL ANGLE 

DFG 

P 

SEMILATUS RECTUM 

FT 

RANGE 

DISTANCE TO LAUNCH SITE ASSUMING 
SPHERICAL EARTH WITH RADIUS EQUAL TO 
RADIUS AT INSTANTANEOUS POSITION OF 
THE VEHICLE 

NM 

RB 

POSITION VECTOR 

FT 

RDOT 

RADIAL VELOCITY 

FT/SEC 

REVOL V 

ANGULAR VELOCITY OF THE EARTH 

RAD/SEC 

RF 

INSTANTANEOUS RADIUS OF THF OBLAIE EARTH 

FT 

THETA 

TRUE ANOMALY 

DEG 

TPD 

1 I M E OF PERIGEE DEPARTURE 

SEC 

TP 

TIME OF PERIGEE 

SEC 

TRAVLI 

TOTAL INFRTIAL DISTANCE TRAVELED OVER 
A SPHERICAL EARTH WITH RADIUS EQUAL TO THF 
RADIUS OF THE EARTH AT THE I NSTANT AMFOIJS 
POSITION. 

NM 

VX 

INERTIAL VFLOCITY VECTOR 

FT/SEC 

XSTORO 

POSITION VECTOR OF LAUNCH SITE 

FT 

Z INCL I 

INERTIAL INCLINATION 

DEG 

ZINCLR 

RFLATIVE INCLINATION 

DEG 

ZLAT 

LAT I TIJDE 

DEG 

ZLONG 

LONGITUDE 

DEG 


Z0RB0001 

Z0RB0002 

ZORB0003 

Z0RB0004 

Z0RB0005 

ZURB0006 

ZORB0007 

Z0RB0008 

Z0RB0009 

Z0RB0010 

Z0RB001 1 

ZOR BOO 12 

ZORBOO 1 3 

ZORB0014 

ZORBOO 1 5 

ZOR BOO 16 

Z0RB001 7 

ZOR BOO 1 8 

ZORB0019 

Z0RB0020 

ZQRB002 1 

Z0RB0022 

ZORB002 3 

Z0RB0024 

ZORB0025 

ZORB0026 

Z0RB0027 

Z0RB0028 

ZORB002 9 

Z0RB0030 

Z OR B003 1 

7 OR BOO 32 

ZURB0033 

Z0RB0034 

ZORBOO 35 

Z0RB0036 

Z0RB0037 

Z0RB0038 

ZORB0039 

Z0RB0040 

ZORB0041 

Z OR B0042 

ZURB0043 

Z 0 R B 0 0 4 4 

ZORB0045 

ZORB0046 

Z0RB0047 

Z0RB0048 

Z0RB0049 

ZOR BOO 50 

Z0RB0051 

Z0RB0052 

Z0RB0053 

ZORB0054 

Z0RB0055 

Z0RB0056 
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Z NODE I ASCENDING NODE DFG 

VATM RELATIVE VELOCITY VECTOR ET/SEC 

DATA RADDEG /57. 2957795/ 

CALCULATE SEMILATOS RECTUM 
P=H( 4) /FM 

IE(RDOT.NE.O.O) GO TO 1 

ORBIT ELEMENTS FOR CIRCULAR ORBIT 

TP = 0.0 

SINT = 0.0 

COST = 1.0 

E = 0 . 0 

TPD = 0.0 

THETA = 0.0 

CALCULATE PERIOD OF CIRCULAR ORBIT 
PERI0D=6.2831853*RB ( 5)*S0RT ( RB ( 5 ) /EM) 

GO TO 8 

CALCULATE ECCENTRICITY 

1 E = SORT ( AS S < 1.0+P*(VX(4)/FM-2.0/RR<5) ) ) ) 

IF(E.NF.O.O) GO TO 2 

PER I 0 0 = 6.2 8318 53-P*S0RT ( P/FM) 

GO TO 8 

CALCULATE TRUE ANOMALY 

2 COST = (P/RB(5)-1.0)/E 
SINT = R DOT *SORT ( P/FMJ/E 

THETA =ARCTAN( SI NT, COST )*RADDEG 


CALCULATE TIME OF PERIGEE DEPARTURE 
ECOST = 1.0+E*C0ST 
EPAR1 = ABS < 1 .()-E*E ) 

EPAR2 = SORT ( EPAR 1 ) 

IFICOST.NE. (-1.0) ) GO TO 3 
IEtEPARl.E 0.0.0) GO TO 8 
TPDPAR = .314159265E + 01/ ( FPAR1*EPAR2 ) 

GO TO 7 

3 TANPAR = SINT/( l.O+COST) 

IF(E-l.O) 6,4,5 

4 TPDPAR = ( ECOST + 1 .0 ) *TANPAR/ ( 3.0*EC0ST ) 

GO TO 7 

5 TPDPAR= E*S INT/ ( E PAR 1 -‘ECOST )-ALOG( ( E+ 1 . 0 + E P AR 2*T ANP AR ) / ( E+ 1 . 0- 
1 PAR2*TANPAR ))/(EPARl*EPAR2) 

GO TO 7 

6 TPDPAR = -E*SINT/(EPAR1*ECOST)+2.0*ATAN(EPAR2*TANPAR/(1.0 + E) )/ 
1 EP AR 1 *E P AR2 ) 

CALCULATE PERIOD OF ELLIPSE 

PERIOD = 6.2831853*P=i=SQRT ( P/FM) / ( EPAR1*EPAR2 ) 

C 

7 TPD = TPDPAR^P^SORT ( P/FM) 

C 


Z0RB0057 
Z0RB0058 
ZURB0059 
ZORB0060 
Z I IRB006 1 
Z0RB0062 
Z0RB0063 
Z0RB0064 
Z0RB0065 
Z0RB0066 
Z0RB0067 
ZORB0068 
Z0RB0069 
Z0RB0070 
Z0RB007 1 
Z0RB0072 
Z0RB0073 
Z0RB0074 
Z0RB0075 
Z0RR0076 
Z0RB0077 
ZORB0078 
ZURB0079 
Z0RB0080 
Z0RB008 1 
ZORB0082 
ZURB0083 
ZURB0084 
ZURB0085 
7. OR BOO 8 6 
ZORB0087 
Z0RB0088 
Z0RB0089 
Z0RB0090 
Z0RB0091 
Z0RB0092 
Z0RB0093 
Z0RB0094 
70RB0095 
ZORB0096 
Z0RB0097 
ZORB0098 
ZURB0099 
Z OR BO 100 
Z0RB0101 
Z0RB0102 
Z0RB0103 
Z OR BO 104 
ZORBO 105 
E ZOR BO 106 
Z0RB0107 
Z0RB0108 
( ZORBO 109 
ZOR BO 1 10 
ZORBO 1 1 1 
Z0RB01 12 
Z0RB01 13 
Z0RB01 14 
Z0RR0115 
Z OR BO 116 
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TP = T I ME-TPD 
C 

R COSINC = H(3)/H(5) 

SINLAT = RB(3)/RB(5) 

CQSLAT = S0RT(1.0-SINLAT**2) 

RXYSO=RB( 1 J442+RBI2 ) **2 
R X YRT = SORT ( RXYSO ) 

SINLON = RB ( 2 ) /RXYRT 
COSLON = RB( 1 )/RXYRT 
HROCIT = SOR T ( H ( 1 )**2 + H( 2 )-*2 ) 

SINNOD = H ( 1 ) / HR OUT 
C0SN0D=-H ( 2 ) /HROOT 

COSPHI=COSLAT*(COSLON*COSNOD+SINLON*S INNOD) 

CALCULATE ASCENDING NODE 

ZN0DEI=0DDM0D( ARCTANI HI 1 ) ,-H(2 i ) *R ADDED , 360 .0 ) 

CALCULATE INFRTIAL INCLINATION 
ZINCLI = ARCOS(COSINC)*RADDEG 

CALCULATE LONGITUDE 

ZL0NG = 0DDM0D( ( ARC TAN ( RB ( 2 ) ,RBI 1 ) ) -REVOL V*T I ME ) *R ADDEG , 360 . 0 ) 

CALCULATE LATITUDE 
ZLAT = ARSIN(SINLAT) ^R ADD EG 

CALCULATE INFRTIAL AZIMUTH 

A Z I M I =ODDMOD ( ARC TAN (H( 3 ) /HROOT , COS PH I ) *R ADDEG, 360.0) 

CALL CONVT (RBI 1 ) , V ATM ( 1 ) , HATM (1) ) 

HROOT = SORT ( HATM( 1 ) =f=*2 + H A TM ( 2 ) * = *2 ) 

CALCULATE RELATIVE FLIGHT PATH ANGLE 
BETAR = ARCTAN(RD0T,HATM(5)/RB(5))*RADDFG 

IF RELATIVE ANGULAR MOMFNTUM FOUALS ZERO, SET RELATIVE 
INCLINATION AND AZIMUTH TO ZERO. 

IFIHATNI5) .NE.O.O) GO TO 9 
Z I NCLR = 0 . 0 
AZ I MR=0 .0 
GO TO 10 

CALCULATE RELATIVE INCLINATION 
9 COSINC = HATM ( 3 ) /HAT M ( 9 ) 

ZINCLR = ARCUS (COSINC )*RADDEG 

IF(HROOT.EO.O.O) GO TO 10 
SINNOD=HATM( 1 ) /HROOT 
COSNOD=-HATM ( 2 ) /HROOT 

COS PH I =COSLAT*( COSLON*COSNOD+S I NLON* SINNOD ) 

CALCULATE RFLATIVE AZIMUTH ANGLE 

AZ IMR=ODI)MOO( ARCTANI HATMI 3) /HROOT, C0SPH1 )*RADDFG , 360.0) 

10 SLIP = REVOL V^T I ME 
COSLIP = COS(SLIP) 

S INLIP = S INI SLIP) 

RIC(1)=XST0R0(1 )*C0SLIP-XST0RUI2)*SINLIP 
R IC ( 2 ) = XSTORO< 2 ) *COSL I P + XSTOROI 1 ) *S INL I P 
RIC(3)=XSTORO(3) 

CALL CONVT (RIC,RB,XST ORE) 


Z0RB0117 

Z OR BO 1 1 8 

Z0RB0119 

Z0RB0120 

Z0RB0121 

ZOR BO 1 22 

Z0RB0123 

Z0RB0124 

Z0RB0125 

ZOR BO 126 

Z0RB0127 

ZOR BO 1 28 

ZORB0129 

Z0RB0130 

Z0RB0131 

ZOR BO 1 32 

Z0RB0133 

Z0RB01 34 

ZORB0135 

ZOR BO 1 36 

Z0RB0137 

ZOR BO 1 38 

Z0RB01 39 

Z OR BO 140 

Z0RB0141 

Z0RB0142 

Z0RB0143 

Z OR BO 1 44 

Z0RB0145 

ZOR BO 1 46 

Z0RB0147 

ZOR BO 1 48 

ZOR BO 149 

ZOR BO 1 50 

Z0RB0151 

Z0RB01 52 

Z0RB0153 

ZOR BO 1 54 


Z0RB0155 
ZORB0156 
Z0RB0157 
ZOR BO 1 58 
Z0RB0159 
Z0RB01 60 
Z0RB0161 
ZOR BO 1 62 
Z0RB0163 
Z0RB0164 
Z0RB0165 
Z0RB0166 
Z0RB0167 
Z0RB0168 
Z0RB0169 
ZOR BO 1 70 
Z0RB0171 
ZOR BO 1 72 
Z0RB0173 
Z0RB0174 
Z0RB0175 
Z0RB0176 
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C 

C CALCULATE INSTANTANEOUS RADIUS OF THE EARTH 

R E = RB ( 3 ) -ALT E 

CALCULATE THE RELATIVE TRAVEL ANGLE 
PH I R = ABS ( AR S I N ( XSTORF ( 5 ) / XSTURO ( 4 ) /RB ( 5 ) ) ) 


CALCULATE RELATIVE DISTANCE TRAVERSED 
RANGE=RE-PHIR/6076.1153 

PHIR=PHIR*RADDEG 
CALL CGNVTI X S TORO » RB , X STOR E ) 

CALCULATE THE INERTIAL TRAVEL ANGLE 
PH I I = ABS ( AR S I N ( XSTORE ( 5 ) / X STORO ( 4 ) /RB ( 5 ) ) ) 

CALCULATE INERTIAL DISTANCE TRAVERSED 
TRAVLI=RE*PHI 1/6076. 1138 
C 

PHI I=PHI I *R ADDEG 
C 

RETURN 

END 


Z0RB01 77 
Z0RB0178 
Z0RB0179 
Z0RB0180 
Z0RB0181 
ZOR BO 1 82 
Z0RB0183 
Z OR BO 1 BA 
Z0RB01 88 
ZORB0186 
Z0RB0187 
Z0RB0188 
Z0RB0189 
ZOR BO 1 90 
Z0RB0191 
ZOR BO 1 92 
Z0RB0193 
Z0RB0194 
Z0RB0195 
ZOR BO 1 96 
Z0RB0197 
Z OR BO 1 98 
Z0RB0199 


127 



c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 


1 


SUBROUTINE OUTPTl(N) 

SUBROUTINE OUTPT1 AND OUT PT2 PRINT THE DATA AND CONTAIN 
MOST OF THE WRITE STATEMENTS IN THE PROGRAM. OUTPTi HANDLFS 
THE OUTPUT FOR THE UPPER PHASE PORTION OF THE PROGRAM. IT IS 
DIVIDED INTO TWO SECTIONS, ONE WHICH PRINTS HFADINGS AND THF 
OTHER WHICH PRINTS THE NUMERICAL DATA 

COMMON /CSTAR/ CMA ( 1000 ) ,CMB ( 1000 ) 

COMMON / RUNG/RUN (125) 


Z0TP0001 
ZOTP0002 
Z0TP0003 
Z0TP0004 
Z 0TP0005 
Z0TP0006 
Z0TP0007 
ZOTPOOOB 
ZOTP0009 
ZOTPOOIO 


DIMENSION 

AMF 

(6 

), ELOMX (6 

) , FUEL 

( 6 ) 

Z0TP0011 

DIMENSION 

HARD 

(6 

) , HARD1 (6 

) , PROP 

(6 ) 

Z0TP001 2 

DIMENSION 

TB 

(6 

) , THRUST ( 6 

) ,TS 

( 6 ) 

Z0TP0013 


DIMENSION VEL E X P ( 6 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUI VALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


(CAPPA , CMA ( 
(DZLAM1,CMA< 
(EDM ,CMA< 
(FUEL , CMA ( 
(HARD , CMA ( 
( NSTAGE ,CMA ( 
(P ,CMA( 
(PROP ,CMA( 
( RESERV »CMA ( 
( STEPN(),RIJN( 
( THRUST , CMA ( 
(TP , CMA ( 
(U ,CMA( 
( VELEXP,CMA( 


) 

891 ) ) , ( DEL T A V , CMA 
806 ) ) , (DZLAM2.CMA 
886 ) ) , ( ELOMX ,CMA 
871)1 , ( FUELDV , CMA 
843 ) ) , ( I MODF , CMB 
710) ) , ( NSTAG1 , RUN 
906 ) ) , ( PERIOD, CMA 
, CMA 


849) ) , ( PSI 
862) ) , ( RMASS 
1 12 ) ) , ( TB 
831 )), (TIME 
907 ) ) , ! TPD 
404 ) ) , ( V 
864) ) , ( ZL AMI 


, CMA 
, CMA 
, CMA 
, CM A 
»CMA 
, CMA 


(861 ) ) 
(507) ) 
( 837 ) ) 
(878) ) 
(061 ) ) 
(115) ) 
(910) ) 
(885) ) 
(401 ) ) 
(825) ) 
(409 ) ) 
(908 ) ) 
(889 ) ) 
(406) ) 


, (DROP 
, (F 

, ( FLOW 

, (G 

, ( LAST 
, (OMEGA 
, ( PHI 
, (R 
, (RO 
, (THETA 
, ( TKICK 
, (TS 
, ( VELEX 
, ( ZLAM2 


, CM A ( 
, CMA ( 
, CMA ( 
, CMA ( 
, CM A ( 
,CMA( 
,CMA ( 
, CMA ( 
, CMA ( 
, CMA ( 
,CMB ( 
, C M A ( 
,CMA( 
, CMA ( 


863 ) ) 
905) ) 
877 ) ) 
716 ) ) 
890 ) ) 
405 ) ) 
403) ) 
402) ) 
904) ) 
909) ) 
059 ) ) 
932 ) ) 
870) ) 
407) ) 


INTEGER STEPNO 

DATA CONRTD /57. 2957795/ 


N EQUAL TO ZERO IMPLIES THAT HEADINGS ARF 

EQUAL TO ONE CALLS FOR NIJMFRICAL OUTPUT. 

IF(N.NF.O) GO TO 5 

DO 1 J = 1,6 

HARD1 ( J ) =0.0 

AMF ( J )=0.0 


TO B E PRINTED, N 


THESE HEADINGS I 
AND THE PROPELLA 
WRITE (6,2) 

2 FORMAT (4H0A1 , 

1 1 4HTHRUST ONE 
114HEL0W FOUR 

I 14HPR0P ONF 

I I 4HTHRI 1ST TWO 
1 1 4HE LOW FIVE 

1 14HPR0P TWO 
1 1 4HTHRUS T THREE 
114HFL0W SIX 
1 1 4H PROP THREF 


DENTIEV THF THRUST, FLOW, FIXED HARDWARE, 
NT SENSITIVE MASS FRACTION FOR EACH PHASE. 


,2X,14HTHRUST FOUR 
, 2 X , 1 4HHAR D ONE 
,2X,14HPRL1P FOUR 
, 2X , 14HTHRUST FIVE 
, 2 X , 14HHARD TWO 
, 2 X , 14HPR0P FIVE 
, 2 X , 1 4HTHR US T SIX 
,2X , 14HHARD THREF 
,2X , 14HPR0P SIX 


, 2 X , 14HFL0W ONE 
, 2 X , 1 4HHAR D FOUR 
/4H A2 , 

, 2 X , 14HEL0W TWO 
, 2 X , 1 4HH AR D FIVE 
/4H A3 , 

, 2 X , 1 4HFL0W THREE 
, 2 X , 1 4HHAR D SIX 
) 


, 2 X , 
, 2 X , 

, 2 X , 
, 2 X , 

, 2 X , 

, 2 X , 


THESE HFADINGS IDENTIFY THF OUTPUT WHICH 
THE TRAJECTORY. THE VARIABLES AR E 


TIME 

WEIGHT 


TIME FROM LAUNCH 
INSTANTANEOUS WEIGHT 


IS DERIVED FROM 

SEC 

LB 


ZOTPOO 14 

ZOTPOO 1 5 

ZOTPOO 1 6 

Z0TP0017 

Z0TP0018 

Z0TP0019 

ZOTP0020 

ZOTP002 1 

Z0TP0022 

Z0TP0023 

Z0TP0024 

ZOTPOO 25 

Z0TP0026 

ZOTPOO 27 

Z0TP0028 

Z0TP0029 

ZOTP0030 

Z0TP0031 

ZOTP0032 

Z0TP0033 

Z0TP0034 

ZOTPOO 35 

ZUTP0036 

ZOTP0037 

Z0TP0038 

Z0TP0039 

Z0TP0040 

Z0TP0041 

Z0TP0042 

Z0TP0043 

Z0TP0044 

Z0TP0045 

Z0TP0046 

Z0TP0047 

Z0TP0048 

Z 0TP0049 

ZOTP0050 

Z0TP0051 

Z0TP0052 

Z0TP0053 

ZOTP0054 

Z0TP0055 

Z0TP0056 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


STEPNO 

THE NUMBER OF GOOD INTEGRATION STEPS 


Z0TP0057 


TAKEN UP TO AND INCLUDING THE STEP 


Z0TP0058 


PR INTFO 


ZOTP0059 

CAPPA 

SEE COAST FOR USE OF CAPPA 


Z0TP0060 

KICK ANGLE 

BOOSTER KICK ANGLE 

DEG 

Z0TP0061 

RADIUS 

DISTANCE TO THE CENTER OF EARTH 

FT 

Z0TP0062 

TIME PER DEP 

TIME OF PERIGEE DEPARTURE 

SEC 

ZUTP0063 

SEM LAT REC 

SEMILATUS RECTUM 

FT 

Z0TP0064 

TRUE ANOMALY 

TRUE ANOMALY 

DFG 

ZOTP0065 

HOR. VELOCITY 

HORIZONTAL VELOCITY 

FT/SEC 

ZOTP0066 

PS I 

ANGLE BETWEEN THRUST VECTOR AND 

DEG 

Z0TP0067 


LOCAL HORIZONTAL, MEASURED POSITIVE 


Z0TP0068 


CLOCKWISF 


ZOTP0069 

ALT I TUDF 

ALTITUDE ABOVE SPHERICAL EARTH 

FT 

Z0TP0070 

ECCENTRICITY 

ECCENTRICITY OF CONIC 


Z0TP0071 

I NR. GAMMA 

INERTIAL FLIGHT PATH ANGLE 

DEG 

Z0TP0072 

PERIOD 

PFRIOD OF FLLIPSE 

SFC 

Z0TP0073 

INR. VELOCITY 

TOTAL INERTIAL VELOCITY 

FT/SEC 

Z0TP0074 

FLOW 

FLOW RATE 

LB/SEC 

Z0TP0075 

ACCELLERATIUN 

THROST-TO-WE IGHT 

G S 

Z0TP0076 

PSI D 

DERIVATIVE OF THRUST ANGLE WITH 

DEG/SEC 

Z0TP0077 


RESPFCT TO TIME 


ZOTP0078 

PERIGEE ALT 

ALTITUDE OF PERIGEE POINT 

FT 

Z0TP0079 

TIME OF PERIGEE 

TIME OF PERIGEE REFERENCED TO TIME 

SEC 

Z0TP0080 


OF PRINTOUT 


ZOTP0081 

OMEGA 

ANGULAR VELOCITY 

DEG/SEC 

Z0TP0082 

TRAVEL ANGLE 

INERTIAL TRAVEL ANGLE MEASURED FROM 

DEG 

Z0TP0083 


THE BEGINNING OF THE UPPER PHASE POR- 


ZUTP0084 


TION OF THE PROBLEM 


ZOTPO085 

RAO VELOCITY 

RADIAL VELOCITY 

FT/SEC 

ZOT P008ft 

WRITE (ft, 3) 



Z0TP0087 

3 FORMAT (4H0U1 , 



Z0TP0088 

1 14HT I ME 

, 2 X , 14HW EIGHT ,2X, 14HPSI 

, 2 X , 

Z0TP0089 

1 14HALT I TUOE 

,2X, 1 4H ECCENTRICITY , 2X, 14H INR . GAMMA ,2X, 

Z0TP0090 

1 14HPER IOD 

,2X,14HINR. VELOC I TYY/4H 02 , 


ZOTP0091 

1 14HFL0W 

,2X, I4HACCELLERATI0N ,2X,14HPSID 

, 2 X , 

ZOTP0092 

114HPERIGEE ALT 

, 2 X , 1 4HT I ME OF PER I GE , 2 X , 14HOMEGA 

, 2 X , 

Z0TP0093 

114HTRAVFL ANGLE 

, 2 X , 14HRAD . VELOCITY /4H U3 , 


ZOTP0094 

1 14HSTEPN0 

,2X,14HCAPPA , 2 X , 14HK I CK ANGLE ,2X, 

ZOTP0095 

1 14HRADIUS 

, 2X , 14HT I ME PER DEP ,2X,14HSFM LAT 

REC , 2 X , 

Z0TP0096 

1 14HTRUF ANOMALY 

, 2 X , 1 4HH0R . VELOCITY ) 


Z0TP0097 

Z0TP0098 

THIS OUTPUT SECTION SUPPLIES INFORMATION WHICH COULD 

BE COMPUTED 

Z0TP0099 

FROM A TRAJECTORY, BUT FOR CONVENIENCE IS TABULATED A 

T THE 

Z OTPOIOO 

END OF A TRAJECTORY. THE ITEMS LISTED FOR EACH PHASE 

ARE 

ZUTPOlOl 
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C 

BURNING TIME, 

PROPELLANT LOADING, 

TOTAL HARDWARE WEIGHT, 

AND 

Z0TP0102 

c 

MASS FRACTION 




Z0TP0103 


WRITF (6,4) 




Z0TP0104 


4 FORMAT ( 4H0U4 

, 



Z0TP0105 


114HRURN TIME 

ONE , 2X , 14HBURN TIME 

FOUR , 2 X , 1 4HWP ONE 

, 2 X , 

Z0TP0106 


114HWP FOUR 

, 2X , 14HHARD ONE 

,2X, 14HHARD FOUR 

»2X, 

Z0TP0107 


114HM F ONE 

,2X, 14HM F FOUR 

/4H U5 , 


Z0TP0108 


114HBURN TIME 

TWO , 2 X , 14HBURN TIME 

FI VE,2X, 14HWP TWO 

, 2 X , 

Z0TP0109 


114HWP FIVE 

,2X, 14HHARD TWO 

, 2X , 14HHARD FIVE 

» 2 X , 

ZUTP0110 


114HM F TWO 

, 2 X , 14HM F FIVE 

/ 4H U6 , 


ZOTPOlll 


114HBURN TIME 

THRE,2X, 14HBURN TIME 

SIX , 2 X , 1 4HW P THREE 

* 2 X , 

Z0TP0112 


114HWP SIX 

, 2 X , 14HHARD THREF 

,2X , 14HHARD SIX 

, 2 X , 

Z0TP01 13 


114HM F THREE 

» 2X , 14HM F SIX 

) 


Z0TP0114 


'return 




Z0TP0115 

c 





Z0TP0116 

c 

IF N EQUAL 2, 

WRITE DATA CORRESPONDING TO FIRST HEADING 


Z0TP01 17 


5 GO TO (7,6) ,N 




Z0TP011R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


6 WRITE (6,10 ) THRUST ( 1 ) , THRUST (4) ,FL0MX( 1 ) ,FL0MX ( 4) ,HARP( 1 ) ,HARD(4Z0TP01 19 


1 ) » PROP ( 1 ) , PROP ( 4 ) , THRUST ( 2 ) , THR(iST ( 5 ) , FLOMX! 2 ) ,FLOMX ( 5 ) , HARD (2 ) , 
1HARDI 5 ) ,PROP ( 2 ) , PROP! 5) , THRUST ( 3 ) , THRUST ( 6 ) ,FLOMX ( 3 ) ,FLOMX ( 6 ) , 

1 HARD! 3) , HARD! 6) ,PR0P(3) ,PRDP(6) 

RETURN 


CALL URBEL TO CALCULATE ORBIT ELEMENTS 
CALL URBEL 

CALCULATE DATA TU BF PRIMTFD FROM RAW DATA 


EXPRESS THRUST ANGLF 
SID = PS I * CONRTD 


IN DEGREES 


r2 + ZLAM2**2K-C0NRTD 


COMPUTE DERIVATIVE OF THRUST ANGLE 

PS I D=( ZLAM2*DZLAM1-ZLAM1*DZLAM2) / ! Z L AM 1 * 

COMPUTE PERIGEE ALTITUDE 
PFRALT = P/ ( 1 • 0 + E ) -RO 


COMPUTF ALTITUDE 
AL T = R-RO 

OMEGAD=OMEGA*CONRTD 

COMPUTE FINAL BURNOUT WEIGHT WHEN AM IDEAL DFLTAV IS ADDED TO 
LAST PHASE 
7MASS=RMASS 

IF(NSTAG1.NE.LAST+1 ) GO TO 8 

ZMASS =R MASS- ( 1 . O+PROP ( L AS T ) ) *FUFL DV-HARD ( LAST ) -PROP ( L AST ) *FUE L 
1 ! LAST (-DROP 


CALCULATE THRUST-TO-WE IGHT 
TTOW = F DM/G 


CALCULATE INERTIAL 
F I i.)=PH I ~CONR TD 


TRAVEL ANGLE FOR UPPFR PHASE PORTION OF FLIGHT 


CALCULATE HORIZONAL VELOCITY 
HOR V = OMFGA * R 

CALCULATE INERTIAL FLIGHT PATH ANGLF 


ZUTP0120 
Z0TP0121 
Z0TP0122 
Z0TP0123 
Z0TP0124 
Z0TP0125 
Z0TP0126 
Z0TP0127 
ZOTP0128 
Z0TP0129 
Z0TP0130 
Z0TP0131 
Z0TP0132 
Z0TP0133 
Z0TP0134 
Z0TP0135 
Z0TP0136 
Z0TP0137 
Z0TP0138 
Z0TP0139 
Z0TP0140 
Z0TP0141 
Z0TP0142 
Z0TP0143 
THE Z0TP0144 
Z0TP0145 
Z0TP0146 
Z0TP0147 
Z0TP0148 
Z0TP0149 
Z0TP0150 
ZUTP0151 
Z0TP0152 
Z0TP0153 
Z0TP0154 
Z0TP0155 
Z0TP0156 
Z0TP0157 
Z0TP0158 
Z0TP0159 
ZDTP0160 
Z0TP0161 
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J L 


Z0TP0162 
Z0TP0163 
Z0TP0164 
ZOT PO 1 65 
Z0TP0166 
Z0TP0167 
Z0TP0168 
ZOTP0169 
ZOTPO 170 
Z0TP0171 
Z0TP0172 
Z0TP0173 
Z0TP0174 
Z0TP0175 
ZUTP0176 
Z0TP0177 
ZIJTP0178 
Z0TP01 79 
ZIJTP0180 
Z0TP0181 
Z0TP0182 
Z0TP0183 
ZOTPO 184 
Z0TP0185 
Z0TP0186 
Z0TP0187 
ZGTP0188 
ZOTPO 1 89 
Z0TP0190 
Z0TP0191 
Z0TP0192 
Z0TP0193 
ZOT PO 194 
Z0TP0195 

PRIMT OUT SUMMARY OP TRAJFCTORY DATA Z0TP0196 

WRITE (6,12 )TB(1),TB(4) .FUEL ( 1 ) , FUEL ( 4 ) , H AR D 1 ( 1 ) , HAR D1 ( 4 ) , AMF ( 1 ) , ZOTPO 197 
1 A M F ( 4 ) ,TR(2) , TB ( 5 ) , FUEL ( 2 ) , FUEL ( 5 ) ,HAR01(2 ), HAR 1)1 ( 5) , AMF ( 2 ) ,AMF(5)Z0TP0198 
1 ,TB ( 3 ) ,TB ( 6 ) , FUFLI 3 ) , FUEL (6 ) ,HARD1 ( 3 ) ,HARD1 ( 6 ) , AMF ( 3 ) , AMF (6 ) Z0TP0199 


BETAD = ARCTAN(lJ,HORV )*CONRTD 

WRITE (6,11 )TIM6,ZMASS, SID, ALT, 6, BFTAD, PERIOD, V, FLOW ,TTOW, 
1PSID,PERALT , TP, OMEGA 0,F I D, U, STE PMO ,C A PP A , TK ICK , R , TPD, P , THE T A , 
1HORV 

IF NSTAG1 EQUALS NS T AGE , THEN THE TRAJECTORY IS COMPLETE 
AMD THE INFORMATION TO BE TABULATED AT THE END OF A 
TRAJECTORY IS COMPUTED AND PRINTED. 

CALCULATE TOTAL HARDWARE WEIGHT AMD MASS FRACTION 
IF(NSTAG1.NE.LAST+1) RETURN 
LAST1 = LAST - 1 
DO 9 J = 1 , LAST 1 

COMPUTE TOTAL HARDWARE WEIGHT FOR ALL BUT LAST PHASE 
A M F ( J )=0.0 

HARD1 ( J ) =HARD( J ) + Ft)EL ( J )*PROP( J ) 

9 IF ( FUEL ( J I+HARD1 ( J ) .NE.O.O) 

COMPUTE MASS FRACTION FOR ALL BUT LAST PHASE 
1 AMF ( J > =FUEL ( J ) / ( FUEL ( J 1+HARD1 ( J ) ) 


COMPUTE FUEL FOR LAST PHASE 
FUEL (LAST) =FUEL< LAST) +FUELDV 

COMPUTE HARDWARE WEIGHT FOR LAST PHASE 
HARD1 ( LAST )=HARD( LAST )+PROP( LAST) *FUEL ( LAST ) 

COM PUT F MASS FRACTION FOR LAST PHASE 
IF(FUELfLAST). NE.O.O) 

1AMF( LAST ) =FUEL (LAST)/ (FUEL (LAST (+HARD1 ( LAST ) ) 


10 FORMAT ( 4H0A 1 , 7 ( G 14 . 7 , 2 X ) , G 1 4 . 7 / 
1 4H A2 ,7(G14.7,2X) , G 1 4 . 7 / 

1 4H A3 ,7(G14.7,2X) ,G14.7) 

11 FORMAT ( 4H0U 1 , 7 ( G 1 4 . 7 , 2 X ) , G 1 4 . 7 / 

1 4H U2 ,7(G14.7,2X),G14.7/ 

14H LI 3 ,I5,11X,6(G14.7,2X),G14.7) 

12 F0RMAT(4H0U4 ,7 (G14.7 ,2X) ,G14.7/ 
14H 115 ,7(G14.7,2X) , G 1 4 . 7 / 

1 4H 06 ,7<G14.7,2X),G14.7) 

RETURN 

END 


ZOTP0200 

Z0TP0201 

ZOTP0202 

Z0TP0203 

Z0TP0204 

Z0TP0205 

Z0TP0206 

Z0TP0207 

Z0TP0208 

Z0TP0209 

Z0TP0210 


131 



o o o n o o 


SUBROUTINE OIITPT2(N) 

SUBROUTINE OUT PT2 CONTAINS THE WRITE STATEMENTS WHICH 
PRINT DATA FROM THE BOOSTER PORTION OF THE PROGRAM. THE USER 
HAS HIS CHOICE OF A FIVE LINE PRINTOUT OR A TWO LINE 
PRINTOUT. 

COMMON / RUNG/ RUN (12 5) 

COMMON / C S T A R / CMA ( 1000 ) ,CMB ( 1000 ) 

COMMON /ATABLE/ CME(POOO) 

DIMENSION H (5 ) ,RB IS 

DIMENSION VX (5 ) 

EQUIVALENCE (ALTB ,CMB ( 154 I ) , ( ALTE 

EQUIVALENCE ( AZ I MR , C M A ( 922 ) ) , < B E T A I , CMA ( 9 1 7 ) ) , ( B F T AR 
EQUIVALENCE (CD , CMA ( ft 1 2 ) ) , < F 

EQUIVALENCE (FLOW , CMA ( 752 ) ) , ( FM 
EQUIVALENCE (H , CMA ( 769 ) ) , ( HF AT 

EQUIVALENCE (IMODE , CMfi ( 06 1 ) ) , ( MODEC 
EQUIVALENCE ( N VAR ,CMB ( 073 ) ) , ( P 
EQUIVALENCE ( PER I OD, CMA ( 9 10 ) ) , ( PH I I 
EQUIVALENCE (0 , CMA ( P07 )),( OVAL 

EQUIVALENCE (RANGE , C M A ( 9 1 A ) ) , ( R B 
FOUIVALFNCE (RE , CMA ( 924 ) ) , ( ROA 
EQUIVALENCE (STEPNO,RUN( 113) ) , (THETA 


) » V A T M (5 
, CMA ( SOS ) ) , ( AZ IMI 


,CMA( 921 ) ) 

* CMA (918) ) 
,CMA ( 905 ) ) , ( F I XDTK ,CMB ( 07 1 ) ) 

, CMA (716) ) 
,CMB( 1S6) ) 

♦ CME ( 02 0 ) ) 
,CMA< 806 ) ) 
t CMA ( 9 1 2 ) ) 


, CMA ( 71 5 ) ) t ( G 
* CMA ( 401 ) ) , < HOR V 
,CMB( 180) ) , (NKICK 
, CMA ( 906 ) ) , ( PA 
, CMA (911 ) ), (PHIR 
,CMA( 808 )>, (RADIUS , CMA ( 758 ) ) 
, CMA ( 754) ) t ( ROOT ,CMB(155)) 
* C MB ( 062 ) ) , ( STEPGO,RUN( 1 12 ) ) 
, CMA (909) ), (THRUST, CMA <751 ) ) 


Z0TP0001 
Z0TP0002 
Z0TP0003 
Z0TP0004 
ZOTPOOOS 
Z0TP0006 
ZDTP0007 
Z0TP0008 
Z0TP0009 
Z0TP0010 
Z OT P001 1 
ZOTPOO 1 2 
ZOT P001 3 
ZOT POO 14 
ZOTPOO 1 5 
ZOT POO 1 6 
Z OT POO 1 7 
ZOTPOO 1 8 
Z OT POO 1 9 
Z0TP0020 
Z0TP0021 
ZOT P0022 
Z0TP0023 
Z0TP0024 



FOUIVALFNCE 

(TIME ,CMA ( 409 ) ) , ( TP ,CMA ( 907 ) ) , ( TPD 

,CMA ( 908 ) ) 

Z0TP0025 


EQUIVALENCE 

( TRAVLI ,CMA(91 3) ) , ( VAR ,CMF(501)),(VATM 

,CMA( 764) ) 

Z0TP0026 


EQUIVALENCE 

(VMACH , CMA ( 81 1 ) ) , ( VX , C MA ( 7 59 ) ) , ( WE I GH T , C MA ( 402 ) ) 

Z0TP0027 


FOUIVALFNCE 

( Z INCL I ,CMA(919) ) , ( Z INCLR,CMA (920) > , (ZLAT 

, CMA (916) ) 

Z0TP002 8 


EQUIVALENCE 

( ZLONG ,CMA (915 ) ) , ( Z MODE I ,CMA( 92 3) ) 


ZOTP0029 


INTEGER STFPGO,STEPNO, FIXOTK 


Z0TP0030 


DATA PALPHA/O.O/ 


Z0TP0031 


DATA RAOOEG/57. 2957795/ 


ZOTP0032 


IF(N.NE.O) GO TO 6 


Z0TP0033 


GO TO (9,1,3) , MODEC 


Z0TP0034 

c 




Z0TP0035 

c 

THE SHORT PRINTOUT CONTAINS THE FOLLOWING VARIABLES. 


Z0TP0036 

c 

TIME 

TIME FROM LAUNCH 

SEC 

Z0TP0037 

c 

WEIGHT 

INSTANTANFOUS WEIGHT 

LB 

Z0TP0038 

c 

RAD VELOCITY 

RADIAL VFLOCITY 

FT/SFC 

Z0TP0039 

c 

HOR VFLOCITY 

HOR I ZONAL VELOCITY 


ZOTP0040 

c 

ALTITUDE 

ALTITUDE ABOVE OBLATE EARTH 

FT 

ZOTP0041 

c 

INR. VELOCITY INERTIAL VELOCITY 

FT /SEC 

Z0TP0042 

c 

INR. GAMMA 

INERTIAL FLIGHT PATH ANGLE 

DEG 

ZUTP0043 

c 

FLOW 

FLOW RATE 

LB/SEC 

ZOTP0044 

c 

SI EPGO 

NUMBER OF GOOD INTEGRATION STEPS 


ZOTP0045 

c 


UP TO AND INCLUDING PRINTOUT 


Z0TP0046 

c 

STEPNO 

NUMBER OF BAD INTEGRATION STEPS 


Z0TP0047 

c 


UP TO PRINTOUT 


Z0TP0048 

c 

RADIUS 

DISTANCE TO CENTER OF EARTH 

FT 

Z0TP0049 

c 

DRAG 

AFRODYNAMIC FORCE ALONG THE VEHICLF 

LB 

Z0TP0050 

c 


LONGITUDINAL AXIS 


Z0TP0051 

c 

PRESSURE 

ATMOSPHERIC PRESSURE 

LB/FT**2 

Z0TP0052 

c 

HEAT INTEGRAL TIME INTEGRAL FROM LIFTOFF OF THE 

LB/FT 

ZOTP0O53 

c 


PRODUCT OF DYNAMIC PRESSURE AND 


Z0TP0054 

c 


VFLOCITY RELATIVE TO AN EARTH FIXED 


Z0TP0055 

c 


COORDINATE SYSTEM. 


Z0TP0056 
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MACH NUMBER 

RELATIVE VELOCITY DIV 
SPFFD OF SOUND 

I DFD BY THE 



Q 

DYNAMIC PRESSURE 


LB/F 

T**2 

THRUST 
WRITE (6,2) 
FORMAT ( 4H0B1 , 

THRUST 


LB 


114HTIME 

,2X, 14HWE IGHT 

, 2X , 14HR AD. 

VELOCITY 

, 2 X , 

214HH0R. VELOCITY 

, 2 X , 14HALTI TUDE 

, 2 X , 14HINR. 

VELOC I TY 

, 2 X , 

314HINR. GAMMA 

,2X, 14HFL0W 

/ 4H B2 , 



414HSTEPG0+STEPN0 

,2X,14HRADIUS 

, 2 X , 14HDRAG 


t 2 X , 

514HPRESSURE 

, 2 X , 14HHEAT INTEGRAL 

,2X, 14HMACH 

NUMBER 

, 2 X , 

614H0 

, 2 X , 1 4HTHRU ST 

) 



GO TO 9 






c 

c 

c 

c 

c 


THE LONG PRINTOUT CONTAINS THE FOLLOWING VARIABLES 
TIME TIME FROM LAUNCH 

LATITUDE GFOCENTRIC L AT I TUDE , POS I T I VE NORTH 

EQUATOR 


OF 


SEC 

DEG 


C 

RADIUS 

DISTANCE TO THE GFOCENTRIC CENTER OF 

FT 

C 


THE EARTH 


C 

INR. VELOCITY 

INERTIAL VELOCITY 

FT/SEC 

C 

PERIOD 

PERIOD OF ELLIPTICAL ORBIT 

SFC 

C 

SEM LAT REC 

SEMILATUS RECTUM 

FT 

C 

WEIGHT 

INSTANTANEOUS WEIGHT OF CONFIGURATION 

LB 

C 

ACCFLLERAT I ON 

AXIAL ACCFLLERAT ION, THRUST LESS 

G S 

C 


DRAG DIVIDED BY WEIGHT 


C 

STEPGO 

NUMBER OF GOOD INTEGRATION STEPS 


C 


UP TO AND INCLUDING PRINTOUT 


C 

STEPNO 

NUMBER OF BAD INTEGRATION STEPS 


C 


UP TO PRINTOUT 


C 

LONGITUDE 

LONGITUDE, POSITIVE EAST OF 

DEG 

C 


GREENWICH 


c 

ALTITUDE 

ALTITUDE ABOVE THE OBLATE EARTH 

FT 

c 

INR GAMMA 

INERTIAL FLIGHT PATH ANGLF 

DEG 

c 

TRUE ANOMALY 

TRUE ANOMALY 

DEG 

c 

ECCENTRICITY 

ECCENTRICITY 


c 

FLOW 

FLOW RATE 

LB/SEC 

c 

THRUST 

THRUST 

LB 

c 

PSI 

ANGLE BETWEEN THRUST VECTOR AND LOCAL 

DFG 

c 


HORIZONTAL, MF A SORED POSITIVE FOR 


c 


THRUST ORIFNTED ABOVE THE HORIZONTAL 


c 

INR. AZIMUTH 

AZIMUTH OF INERTIAL VELOCITY VECTOR, 

DEG 

c 


THE ANGLE BETWEEN PROJECTION OF THE 


c 


INERTIAL VELOCITY VECTOR INTO THE 


c 


AZIMUTH PLANE (PLANE PERPENDICULAR TO 


c 


RADIUS VECTOR) AND NORTH DIRECTION, 


c 


POSITIVE CLOCKWISE FROM NORTH 


c 

RANGE 

SURFACE RANGE FROM LAUNCH PAD 

NM 

c 

REL. VELOCITY 

RFLATIVE VELOCITY, REFERENCED TO A 

FT/SEC 

c 


COORDINATE SYSTEM FIXED WITH 


c 


THE ROTATING EARTH. 


c 

NODE 

THE LONGITUDE OF THE POINT AT WHICH 

DEG 

c 


PLANE OF THE ORBIT CROSSES THE 


c 


EQUATORIAL PLANE FROM SOUTH TO NORTH 


c 

INR INCLINATION 

INERTIAL INCLINATION, THE ANGLE 

DEG 

c 


MEASURED FROM THE EQUATORIAL PLANE 


c 


TO THE ORBIT PLANF, COUNTERCLOCK- 


c 


WISE AT THE ASCENDING NODE. 


c 

RAD. VEL 

RADIAL VELOCITY 

FT/SEC 


Z0TP0057 
Z0TP005R 
Z0TP0059 
Z0TP0060 
Z0TP0061 
Z0TP0062 
Z0TP0063 
ZOTP0064 
Z0TP0065 
Z0TP0066 
Z0TP0067 
Z0TP0068 
ZOTP0069 
Z0TP0070 
Z0TP0071 
Z0TP0072 
Z0TP0073 
Z0TP0074 
ZOTPO075 
Z0TP0076 
Z0TP0077 
Z0TP0078 
Z0TP0079 
Z0TP0080 
ZOTP0081 
Z0TP0082 
ZOTP0O83 
Z0TP0084 
Z0TP0085 
Z0TP0086 
Z0TP0087 
Z0TP0088 
Z0TP0089 
ZOTP0090 
Z0TP0091 
Z0TP0092 
Z0TP0093 
Z0TP0094 
Z0TP0095 
Z0TP0096 
Z0TP0097 
Z0TP0098 
Z0TP0099 
ZOTPOIOO 
ZOTPOlOl 
Z0TP0102 
Z0TP0103 
ZOTP0104 
Z0TP0105 
Z0TP0106 
Z0TP0107 
Z0TP0108 
Z0TP0109 
ZOTPOl 10 
Z0TP0111 
ZOTPOl 12 
ZOTPOl 13 
Z0TP0114 
Z0TP0115 
ZOTPOl 16 
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INR. TRVL ANGL 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

c 

c 

c 


c 

c 

c 

c 


PSID 

REL. 


AX IMIJTH 


ALPHA 

REL GAMMA 
•TIME PER DFP 
REL. INCLIN. 


NOR. 

REL 

DRAG 


VELOCITY 
TRVL ANGL 


PRESSURE 
HEAT INTEGR. 


MACH NUMBFR 

DRAG CflEFF 
DYNAMIC PRES 
TIME OF PERIGE 
INR. TRAVEL 

WRITE (6,4) 
WRITE (6,5! 
FORMAT ( 4HOR1 


THE ANGLE BETWEEN THE LAUNCH RADIUS 
VECTOR AND THE POSITION VECTOR 
TIME RATE OF CHANGE OF PSI 
AZIMUTH OF RELATIVE VELOCITY VECTOR, 
THE ANGLE BETWEEN PROJECTION OF THE 
RELATIVE VELOCITY VECTOR INTO THE 
AZIMUTH PLANE (PLANE PERPENDICULAR TO 
RADIUS VECTOR) AND NORTH DIRECTION, 
POSITIVE CLOCKWISF FROM NORTH 
THE ANGLE OF ATTACK IN THF PITCH 
PLANE 

RELATIVE FLIGHT PATH ANGLE 

TIME OF PERIGEE DEPARTURE 

RELATIVE INCLINATION, ANGLE MEASUREO 

FROM THE EQUATORIAL PLANE TO THE 

ORBIT PLANE, COUNTER CLOCKWISE AT THE 

ASCENDING NODE 

HORIZONTAL VELOCITY 

THE CENTRAL ANGLE BETWEEN THE VEHICLE 
AND THE LAUNCH SITE 

AERODYNAMIC FORCE ALONG THE VEHICLE 
LONGITUDINAL AXIS 
ATMOSPHERIC PRESSURE 
TIME INTEGRAL FROM LIFTOFF OF THE 
PRODUCT OF DYNAMIC PRESSURE AND 
VELOCITY RELATIVE TO AN FARTH FIXED 
COORDINATE SYSTEM, 

MACH NUMBER, RELATIVE VELOCITY DIVIDED 
BY THF SPEED OF SOUND 
DRAG COEFFICIENT 
DYNAMIC PRESSURF 
TIME OF PERIGEE 

SURFACE DISTANCE TRAVERSED OVER A 
NON-ROTATING EARTH 


DEG 

Z0TP0117 

Z0TP0118 

DEG/SEC 

Z0TP0119 

DEG 

ZOT PO 1 20 
ZOT PO 1 2 1 
ZOT PO 12 2 
Z0TP0123 
ZOT PO 124 
ZOT PO 1 25 

DFG 

ZOT PO 1 26 
Z0TP01 27 

DEG 

Z0TP0128 

SEC 

ZOT PO 1 29 

DEG 

ZOT PO 1 30 
Z0TP0131 
Z0TP0132 
Z OT PO 1 33 

FT/SEC 

Z0TP0134 

DFG 

Z0TP01 35 
ZOT PO 1 36 

IB 

Z0TP0137 
ZOT PO 1 38 

L B / F T ##2 

Z0TP0139 

LB/FT 

ZOT PO 140 
Z OT PO 1 41 
Z0TP0142 
Z0TP0143 
ZOT PO 1 44 
ZOT PO 1 45 
Z0TP0146 

LB/FT**2 

Z OT PO 1 47 


SEC 

NM 


ZOT PO 148 
Z0TP0149 
ZOT PO 1 50 
Z0TP0151 
ZOT PO 1 52 
Z0TP0153 


1 14HT IME 

, 2 X , l^HLATI TUDF 

, 2 X , 14HRADIUS 

, 2 X , 

ZOT PO 1 54 

214HINR. VELOCITY 

,2X,14HPERI0D 

, 2 X , 1 4HS EM LAT REC 

, 2 X , 

Z0TP0155 

314HWE I GHT 

, 2 X , 14HACCELLERATI0N 

/ 4H B2 , 


Z0TP0156 

4 1 4HST EPGO+S TEPNO 

, 2 X , 14HL0NG I TUDF 

, 2 X , 1 4H A L T I TIJDE 

t 2 X t 

Z0TP0157 

S14HINR. GAMMA 

,2X, 14HTRUE ANOMALY 

, 2X , 14HFCCENTRIC I TY 

t 2 X f 

Z0TP0158 

614HFL0W 

, 2 X , I4HTHRUS T 

/ 4H B 3 , 


ZOT PO 1 59 

7I4HPSI 

, 2 X , 1 4H INR, AZIMUTH 

, 2 X , 14HRANGE 

f 2 X f 

ZUTP0160 

R14HREL. VELOCITY 

, 2 X , 14HN0DE 

,2X,14HINR. INCLIN. 

,2X f 

Z0TP0161 

914HRAD. VELOCITY 
' FORMAT ( 4H B4 , 

, 2 X , 14H INR TRVL ANGL 

) 


ZOT PO 1 62 
ZOT PO 163 

1 14HPS ID 

,2X, 14HREL. AZIMUTH 

, 2 X , 14HALPHA 

f 2 X f 

Z0TP0164 

214HREL. GAMMA 

, 2 X , 1 4HT I ME PER DEP 

, 2 X , 1 4HR EL . INCLIN. 

t 2 X f 

Z0TP0165 

314HH0R VELOCITY 

, 2X , I4HREL TRVL ANGL 

/ 4H B 5 , 


ZOT PO 1 66 

414HDRAG 

,2X, 14HRRESSURF 

, 2 X , 1 4HHE A T INTEGR. 

t 2 X f 

Z0TP0167 

514HMACH NO 

,2X, I4HDRAG COFFF 

, 2 X , 1 4HDYNAM . PRES. 

f 2 X f 

ZUTP016R 

6 1 4H TIME OF PERIGE, 2X,14HINR. TRAVEL 
RETURN 

COMPUTE RADIAL VFLOCITY 
ROOT = DOT ( RB, VX ) /RB ( 5 ) 

) 


ZOT PO 1 69 
Z0TP0170 
Z0TP0171 
Z0TP0172 
ZOTP0173 
ZOT PO 1 74 


COMPUTE ANGULAR MOMENTUM VECTOR 


ZOT PO I 75 
ZOT PO 1 76 


134 


ooo oo o o o o o oo oo ooo o o o o no 


CALL CONVT (RB,VX,H) 

COMPUTE INERTIAL PLIGHT PATH ANGLE 
BETAI = ARCTAN ( ROOT, HI 5 ) /RBI 5 ) )*R ADOFG 

COMPUTE OR AG 
DRAG=CD*QVAL*WEI GHT/G 

COMPUTE HORIZONTAL VELOCITY 
HOR V = H(5)/RB(5) 


Z0TP0177 
ZUTP0178 
Z0TP0179 
Z0TP0180 
Z0TP0181 
Z0TP0182 
Z0TP0183 
ZUTP0184 
Z0TP0185 
Z0TP0186 
Z0TP0187 
Z0TP0188 
Z LIT PO 1 89 
Z0TP0190 
Z0TPO191 
ZOT PO 192 
ZOT PO 1 93 
ZOT PO 1 94 
Z0TP0195 
ZOT PO 1 96 
Z0TP0197 
Z0TP0198 
Z OT PO 1 99 
ZOTPO20O 
Z0TP0201 
Z0TP0202 
Z0TP0203 
Z0TP0204 
Z0TP0205 
Z0TP0206 
Z0TP0207 
ZOTP0208 
Z0TP0209 
ZOTPO? 10 
Z0TP0211 
ZOTPO? 12 

WR I TE (6 , 10) TIME, ZLAT,RA0IUS,VX(8), PER I 00, P, WEIGHT, TTW, STEPGO, Z0TP0213 

1STEPNO,ZLONG, ALTE , BETA I , THFT A , E , FLOW , THRUST , OS I , AZ I M I , RANGE , V ATM ( 5 ZOTPO? 14 
? ) ,ZNOnF I , Z INCL I , ROOT , PHI I , PS I 0, AZ I MR , PALPHA , BE TAR , TPO, Z I NCLR , HORV , Z0TP0215 
3PHIR, DRAG, PA, HEAT, VMACH , C 0 , 0 , TP , TR AV L I Z0TP0216 

GO TO 9 Z0TP02 1 7 

8 WRITE (6,11) TIME, WEIGHT, ROOT, HORV, ALTE, VX(5) , BETAI, FLOW, STFPGO, Z0TP0218 

1STEPN0, RADIUS, DRAG, PA, HEAT, VMACH ,0, THRUST Z0TP0219 

9 RETURN Z0TP0220 

10 FORMAT ( 4H0B1 , 7 ( G 14 . 7 , 2 X ) , G 1 4 . 7 / Z0TP0221 

14H 82 , I 5,4X, I 5,2X,6(G14.7,2X) ,0,14.7/ ZOTP0222 

24H B3 ,7(G14.7,2X) ,G14.7/ ZUTP0223 

34H B4 , 7 ( G 1 4. 7 , 2 X ) , G 14 . 7/ Z0TP0224 

44H B 5 ,7(0,14. 7, 2X ) ,G14.7) Z0TP0225 

11 FORMAT ( 4H0B1 , 7 ( G 1 4 . 7 , 2 X ) , G 1 4 . 7/ Z0TP0226 

14H B2 ,I5,4X,I5,2X,6(G14.7,2X) ,G14.7) Z0TP0227 

END Z0TP0228 


COMPUTF ALTITUDE TO B E STORED 
ALTB=RADIUS -ROA 

CALL LOAD TO STORE DATA IE DESIRED 

I F ( F I XOTK .E0.3 .AND. I MODE.EO. 1 ) CALL LOAD ( V AR , NV AR , NK I CK ) 

CHOOSE OUTPUT FORM DESIRED, SEE ABOVE 
GO TO (9,8,7) ,MODEC 
FIVE LINE OUTPUT 

CALL ORBEL TO ACQUIRE ORBIT ELEMENT DATA 
CALL ORBEL? 

COMPUTE THRUST— TO— WEIGHT 
TTW= ( THRUST-DRAG ) /WE I GHT 
COMPUTE PERIGEE ALTITUDE 
PERALT = P / ( 1 . 0 + E ) -R E 

COMPUTE PSID 

PSID = H( 5 ) /RADI US/RADIUS* ( 1 .O-FM/R AD I IIS/VX (4 ) )*RADDEG 

SINCE ANGLE-OF-ATTACK EQUALS ZERO, PSI = RELATIVE FLIGHT PATH 

ANGLE 

OS I =BET AR 
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c 








ZPRD0001 

THIS ROUTINE 

ZEROS THE DATA 

WHICH 

MUST BE 

ZEROED 

BEFORE 

Z PRD0002 

PROGRAM EXECUTION. 






ZPRD0003 
Z PRD0004 

BLOCK DATA 






Z PRD0005 

PERDAT 






Z PRD0006 

DIMENSION COMPA (3 

1 , DRAG 

(3 

1 , EXITS 

( 6 

1 

Z PRD0007 

DIMENSION FLOMX (6 

1 , FORCE 

( 3 

1 , FORCES ( 6 

1 

ZPRD0008 

COMMON/C S T AR/CMA ( 10001 ,CMB( 1000} 





ZPRD0009 

DIMENSION EYD (5 

1 , HARD 

( 6 

1 , HARDB 

(6 

1 

ZPRD0010 

DIMENSION NOPT (6 

1 , NOUT 

(6 ,3 

1 , NSETS 

( 20 

1 

Z PR DOO 1 1 

DIMENSION OBLAT (3 

1 , PROP 

(6 

1 , TB 

(6 

1 

ZPRD0012 

rTI MENS I ON TBOOST (6 

) .THRUST ( 6 

1 , WPMAX 

(6 

1 

Z PR DOO 1 3 

DIMENSION WTFLOW ( 6 

1 , XINPT 

( 100 

1 



ZPRD0014 

EQUIVALENCE (BETA 

,CMA ( 880 1 1 , (CAPPA ,CMA(891>) 

, (CD 

, CMA (812 1 1 

Z PR DOO 1 5 


EQUIVALENCE (COMPA , CMA ( 783 1 1 , < DEL T A V , CMA < 86 1 1 1 , ( DRAG ,CMA(7771) ZPRD0016 
EQUIVALENCE (DROP ,CMA ( 863 ) ) , { ENERGY ,CMA ( 892 ) ) , ( EX I TS ,CMA(7271) ZPRD0017 
EQUIVALENCE (FLOMX , CMA ( 8 37 ) ) , ( FORCE ,CMA(774)1,( FORCE S»CMA(739)) ZPRD0018 


EQUIVALENCE ( FVD , CM3 ( 036 )) , { HARD 

EQUIVALENCE ( I TERPO , CMB ( 060 1 ) , (MASH 
EQUIVALENCE (NOUT , CMB ( 1 83 ) ) , < NSETS 
EQUIVALENCE (PA , CMA ( 806 )),( PROP 
EQUIVALENCE ( R ES ER V , CMA ( 862 ) ) , ( TB 
EQUIVALENCE ( THRUST , CMA ( 83 1 1 >,(VMACH 
EQUIVALENCE ( WTFLOW tCMA ( 733 ) ) , ! XINPT 
DATA 

1BETA/0.0/ , 

1CAPPA/0.0/ , 

1CD/0.0/ , 

1 ( COMPA ( J ) ,J = 1,3 1/3*0.0/, 
1DELTAV/0.0/, 

1 ( DRAG ( J ) , J = 1 , 3 ) /3*0.0/ , 

1DR0P/0.0/ , 

1 ENERGV/O . 0 / , 

KEXITS ( J) , .1 = 1, 51/5*0.0/, 

1 ( FLOMX ( J ) , J=1 ,6 ) /6*0.0/, 

1 ( FORCE ( J ) ,J = 1,3 1/3*0.0/, 
l ( FORCES (J ) , J=1 , 5) / 8*0.0/, 

1 ( EYQ ( I), 1=1 ,51/5*0.0/, 

1(HARD (J), .1 = 1,61/6*0.0/, 

] ( HAR QB ( J) ,J = 1, 51/5*0.0/ 

OATA 

1ITERPD/0/, 

1 MASH/O/ , 

1 (IMOPT ( J 1 , J = 1 ,6) / 6*0/ , 

1 ( (NOUT ( I ,J 1 , 1=1 ,6 1 , J=1 ,31/18*0/, 

1 NS ET S/ 20*0/ , 

I (OBLATI J 1 , J=1 ,31/3*0.0/, 

1PA/0.0/ , 

1 ( PROP (J 1 ,J=1 ,61/6*0.0/ 

DATA 

1 OVAL /O . 0/ , 

1RESERV/0.0 / , 

1 ( TB ( J 1 ,J=1 ,61/6*0.0/, 

1 ( TBOOST ( J 1 ,J =1,51/5*0.0/, 

1 ( THRUST (J 1 , J=1 ,6 1 / 6*0 . 0/ , 

IV MACH/0.0 / , 

1 ( WPMAX ( J 1 , J=1 , 6) / 6*0.0/ , 

1 (WTFLOW (. I ) ,.1 = 1,51/5*0.0 / , 

1 (XINPT ( I 1 ,1 = 1,101/10*0.0/ 

END 


, C MA ( 843 1 1 , (HARDB ,CMA(7211) ZPRD0019 
, C M B ( 0 6 4 1 1 , (NOPT ,CMA(8191) ZPRD0020 
,CMB(221 1 1 , (OBLAT ,CMA(7801) ZPRD0021 
,CMA(849) 1 , (OVAL ,CMA(8081) ZPRD0022 
,CMA ( 825 1 1 , (TBOOST, CM A (745) 1 ZPRD0023 
,CMA ( 81 1 1 1 , (WPMAX , CMA (855) 1 ZPRD0024 


, CMA ( 60 1 1 1 


ZPRD0025 

Z PRD0026 

ZPRD0027 

ZPRD0028 

Z PRD0029 

Z PRD0030 

ZPRD0031 

Z PRD0032 

ZPRD0033 

ZPRD0034 

ZPRD0035 

Z PRD0036 

ZPRD0037 

Z PRD0038 

ZPRD0039 

ZPRD0040 

ZPRD0041 

Z PRD0042 

ZPRD0043 

Z PRD0044 

ZPRD0045 

ZPRD0046 

ZPRD0047 

ZPR00048 

ZPRD0049 

Z PRD0050 

Z PR 0005 1 

ZPRD0052 

ZPRD0053 

Z PRD0054 

ZPRD0055 

Z PRD0056 

ZPRD0057 

Z PRD0058 

Z PR DOO 59 

Z PRD0060 

ZPRD0061 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE PER TB (DX,ICHECK) 

SUBROUTINE PERTH COMPUTES THE PERTURBATION S 
TO OBTAIN MEANINGFUL FINITE DIFFERENCES FOR USE I 
ITERATION SCHEME. 

IF A SET OF PERTURBATIONS HAS BEEN RUN, THE 
SIZE FOR THE NEXT SET OF PERTURBATIONS IS AOJUSTE 
THE DIFFERENCE INDICATOR (COMPUTED IN THE SAME MA 
ERROR INDICATOR IN MAIN) IS NOMINALLY EQUAL TO 1. 
IS ACCEPTABLE IF IT IS BETWEEN 5.0E-04 AND 5.0E-0 
IF NO SET OF PERTURBATIONS IS AVAILABLE, (CH 
RADIUS ) /RADIUS IS TREATED IN THE SAME MANNER AS T 
INDICATOR AS DESCRIBED ABOVE. 

DX PERTURBATION FACTOR (SEE MAIN) 

ICHECK FLAG INDICATING ACCEPTABILITY OF 


IZE REQUIRED 
N THE 

PERTURBAT ION 
D SUCH THAT 
NNER AS THE 
0E-04 AND 

5 . 

ANGE IN THE 
HE DIFFERENCE 


PERTURBATION. 


COMMON /CSTAR/ CMA ( 1000 ), CMB ( 1000 ) 
COMMON /PERB/NA,M,SF(5) , COUNT, RSTO 
DIMENSION FY (6 ,6 ),XINPT (100 

EQUIVALENCE (FY ,CMA ( 943 ) ) , ( R 

INTEGER COUNT 


) 

,CMA(402 ) ) , ( XINPT ,CMA (601) ) 


IF COUNT EQUALS ZERO, NO PERTURBATION SET IS AVAILABLE 
I F ( COUNT . EC 
0IFR4D=0.0 


COMPUTE D 1 
DO 1 J = 


ZPER0001 
ZPER0002 
Z PFR0003 
ZPER0004 
Z PER0005 
ZPER0006 
ZPER0007 
ZPER0008 
ZPER0009 
ZPER0010 
ZPER0011 
ZPER0012 
ZPER0013 
ZPER0014 
ZPER0015 
ZPER0016 
ZPER0017 
ZPER0018 
ZPER0019 
ZPER0020 
ZPER0021 
ZPER0022 
ZPER0023 


.0) GO TO 2 


Z PER0024 
Z PER0025 
ZPER0026 

FERENCE INDICATOR AS 

IN MAIN 

Z PER0027 

» N A 


ZPER0028 

AD+ ( ( FY ( N, J ) -F Y ( 1 , J ) ; 

1 #SE ( J ) ) **2 

Z PER0029 

(OIFRADJ/XINPT ( 1 ) 


ZPER0030 
Z PER0031 
Z P ER 0032 

ICATOR BASED ON RADIUS CHANGE 

ZPER0033 

( R-RSTO ) /RSTO ) 


Z PER0034 

E.O) GO TO 4 


Z PER0035 


GO TO 3 


LINEAR INTERPOLATION TO ADJUST PERTURBATION FACTOR 
DX=DX/DI FRAD*1 .0E-04 

CHECK ACCEPTABILITY OF PERTURBATION SIZE 

4 I F ( (DIFRAD.LT. 5. OE-4. AND. DIFRAD.GT. 5. 0E-5). OR. ICHECK. EQ. 4) GO TO 

I F ( ICHECK. EO.O) GO TO 5 

QUADRATIC INTERPOLATION TO ADJUST PERTURBATION FACTOR 
DX=< ( DX#DIFST0-DIFRAU*DXST0)*1.0E-04+(DIFRAD**2*0XST0-DIFSTa**2 
1 * D X ) ) # 1 . OE — 04/ ( D I FR AD*0 1 FSTO# ( DI FR AD-D I F STO ) ) 

STORE INFORMATION FOR QUADRATIC INTERPOLATION 

5 DXSTO=DX 
DIFSTO=DIFRAD 
ICHECK=ICHECK+1 

RETURN 

IF PERTURBATION SIZE IS ACCEPTABLE, SET ICHECK TO ZERO 
AND RETURN. 

6 I CHECK = 0 

RETURN 

END 


Z PER0036 
Z PER0037 
ZPER0038 
Z PE ROO 39 
ZPER0040 
6ZPER0041 
ZPER0042 
Z PER0043 
Z PER0044 
ZPER0045 
ZPER0046 
ZPER0047 
ZPER0048 
Z PER0049 
ZPER0050 
ZPER0051 
ZPER0052 
Z PER0053 
ZPER0054 
Z PER0055 
ZPER0056 
Z PER0057 
Z PER0058 
ZPER00S9 
ZPER0060 
ZPER0061 
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FUNCTION QUAD ( X , I C ) 

C 

C FUNCTION QUAD COMPUTES ANY VARIABLE, QUAD, AS A QUADRATIC 

C FUNCTION OF X. QUAD = A + BX +CXX. THERE MAY BE SEVERAL 

C SETS OF COEFFICIENTS, EACH SET BELONGING TO A PARTICULAR 

C REGION OF X. THE COE FN ARRAY IS ARRANGED AS- 

C X 1 = Al, Bl, Cl, X2, A2, 82 , C2, X3, A3, B3, C3, X4,... 

C WHERE Al, Bl, Cl ARE THE COEFFICIENTS TO BE USED FOR X 

C BETWEEN XI AND X2, ETC. AND XI IS LESS THAN X2, X2 IS LESS 

C THAN X 3 , X 3 IS LESS THAN X4, ETC. 

C IC IDENTIFIES WHICH DEPENDENT VARIABLE IS BEING 

C SOUGHT. ICC(IC) DEFINE THE STARTING LOCATIONS IN THE COEFN 

C ARRAY FOR VARIABLE X. 

C 

COMMON /CSTAR/ CMA ( 1 OOO ), CMB ( 1000 ) 

DIMENSION COEFN (300 ) , I CC (20 ) 

EQUIVALENCE (COEFN , CMB ( 50 1 ) ) , ( I CC ,CMB(201)) 

C 

I = I CC ( I C ) 

1 I F ( X-COEFNI I ) ) 2,3,3 

2 I = 1-4 
GO TO 1 

3 IF(X-COFFN( 1+4) ) 3,5,4 

4 I = 1+4 
GO T(J 3 

5 QUAD = COEFNt I + 1 ) + X- ( COEFN ( 1 + 2 ) + X*COE FN ( 1 + 3) ) 

I CC ( I C ) = I 

RETURN 

END 


ZOUAOOO 1 
ZQUA0002 
ZQUA0003 
ZQUA0004 
ZQUA0005 
Z QUA 0006 
ZQUA0007 
Z0UA0008 
Z QUA0009 
ZOUAOOIO 
ZQUA001 1 
ZQUAOO 12 
ZQUAOO 1 3 
ZQUA0014 
ZQUA0015 
Z0UA0016 
ZQUAOO 1 7 
ZQUAOO 1 8 
Z0UA0019 
Z 0UA0020 
Z0UA0021 
ZQUA0022 
ZQUA002 3 
ZQIJA0024 
ZQUA0025 
ZQUA0026 
ZQUA0027 
ZQUA0028 
ZQUA002 9 
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SUBROUTINE RENDER (N) 

SUBROUTINE RENDER CONTAINS THE CALLING SEQUENCES FOR 
THE ROUTINES WHICH READ AND PUNCH BINARY DATA. 

IF N IS EQUAL TO ONE, BINARY DATA IS PR F SENT AND MUST RE 
READ. IF N IS TWO, A NEW BOOSTER TABLE IS TO BE GENERATED. 

COMMON/ AT ABLE/CMEI 8000) 

COMMON /CSTAR/ CM A ( 1 000 ) ,CMB ( 1000 ) 

DIMENSION FIRST (28 ), FOURTH ( 7 500 ),SEC0N0(2 ) 

DIMENSION THIRD (300 ) 

EQUIVALENCE (FIRST ,CME(001 ) ) , ( FOURTH , CMF ( 50 1 ) ) , ( I KCKS T , CMB ( 066 ) ) 
EQUIVALENCE (IKICK , CME ( 200 ) ) , ( MVAR ,CMB ( 073 )),( SECOND ,CME ( 1 99 ) ) 
EQUIVALENCE (THIRD ,CME(201)) 

I F ( N • EQ • 2 ) GO TO 2 

BINARY READ PORTION 

READ VERTICAL KICK DATA 
READ (5,1 ) FIRST ( 1 ) 

1 FORMAT ( A6 ) 

CALL BC READ ( F I RST ( 1 ) , F l RST ( 28 ) ) 

READ DEL TK (KICK ANGLE SPACING) AND IKICK (NUMBER OF KICK ANGLES) 
CALL BCREAD ( SECOND ( 1 ), SECOND ( 2 ) ) 

READ LIST OF KICK ANGLES IN TABLE 

IKCKST = IKICK 

K = 3* IKICK 

L = 25*NVAR=rIKICK 

CALL BCREAD ( TH I RD ( 1 ) , TH I RD ( K ) ) 

READ BOOSTER BURNOUT CONDITIONS 
CALL BCREAD ( FOUR TH ( 1 ), FOURTH ( L ) ) 

RETURN 

BINARY WRITE PORTION 

IF IKICK EQUALS IKCKST, THEN NO NEW KICK ANGLFS HAVE BEEN 
RUN TO ADD TO THE TABLE. 

2 IF (IKICK .EO. IKCKST) RETURN 

IF IKCKST IS EQUAL TO ZFRO, A NEW BOOSTER HAS BEEN RUN 
AND THE VERTICAL RISE DATA MUST BE PUNCHED. 

I F ( IKCKST. NF.O) GO TO 4 
WRITE (6,3) 

CALL BCDUMP ( F I RST ( 1 ) , F I RST ( 28 ) ) 

3 FORMAT ( 32HSDUMMY CARD INDICATING NEW TABLE, 40X,8H DUMMY) 

4 IKCKST = IKICK 

PUNCH DEL TK AND IKICK 

CALL BCDUMP ( SECOND ( 1 ), SECOND ( 2 ) ) 

PUNCH LIST OF KICK ANGLES 


ZRNDOOO 1 
Z RND0002 
ZRND0003 
ZRND0004 
ZRND0005 
Z RND0006 
ZRND0007 
ZRND0008 
ZRND0009 
ZRND0010 
ZRND001 1 
ZRND0012 
ZRNDOO 1 3 
ZRND0014 
ZRNDOO 1 5 
ZRNDOO 16 
ZRNDOO 1 7 
ZRND0018 
ZRND0019 
ZRND0020 
ZRND002 1 
ZRND0022 
ZRND0023 
ZRND0024 
ZRND0025 
Z RND0026 
ZRND0027 
ZRND0028 
ZRND0029 
ZRND0030 
ZRND0031 
ZRND0032 
ZRND0033 
ZRND0034 
ZRND0035 
ZRND0036 
ZRND0037 
ZRND0038 
Z RND0039 
ZRND0040 
ZRND0041 
Z RND0042 
ZRND0043 
ZRND0044 
Z RND0045 
Z RND0046 
ZRND0047 
Z RND0048 
ZRND0049 
Z RND0050 
ZRND0051 
Z RND0052 
ZRND0053 
ZRND0054 
ZRND0055 
Z RND0056 
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K = 3* I KICK 

L = 2 5*N V AR* I KICK 

CALL BCDUMP (THIRD(l)tTHIRD(K)) 

PUNCH BOOSTER BURNOUT CONDITIONS 
CALL BCDUMP ( FOURTH (1) , FOUR TH ( L ) ) 

RETURN 

END 


ZRND0057 
ZRND0058 
ZRND0059 
Z RND0060 
ZRND0061 
ZRND0062 
ZRND0063 
ZRND0064 
ZRND0065 
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SUBROUTINE RUNGEK ( EOU AT E , OU T PUT ) 

SUBROUTINE RUNGEK CONTROLS THE INTEGRATION SCHEME. 


COMMON /RUNG/RUN( 125) 
COMMON /CSTAR/ CMA(IOOO) 
DIMENSION AK (3 

DIMENSION X (100 

DIMENSION XINC (100 

EQUIVALENCE ( A 1 ,RUN( 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( DEL STO, RUN ( 
( ERL I MT , CMA ( 
<H2 , R UN ( 

( MODOUT , CMA ( 
( NST , C M A ( 
(NSTEP1 , R UN ( 
(RATIO , RUM ( 
( STEPMX , CMA ( 
( TM IN ,CMA< 
(XINC , RUN ( 


» C M B ( 1 
) , AW 
) , XDOT 
) , XK 
101 )) , 
104) ) , 
706 ) ) , 
106) ) , 
714) ) , 
708 ) ) , 
108) ) , 
111) >, 
706 ) ) , 
703) ) , 
001 ) ) , 


000 ) 

(4 

( 100 
( 100 
< A2 
( DELT 
( ERLOG 
( I 

( MODS 
( NS T AGE 
( NSTEP2 
( SCRIBE 
( STEPNO 
( X 

( X PR I M 


) , 
) * 
) , 

, R UN ( 

* CMA ( 
,CMA ( 

* RUN ( 

, CMA ( 

* CMA ( 
,RHN( 
, RUN ( 
,RUN( 

CMA ( 
CMA ( 


OLD INC ( 
X DOT PM ( 
XPRIM 
102 )) , 
701 )) , 


( 
( 
( 

707) ) , ( 


107 ) ) , ( 
712 ) ) , ( 
710) ) , ( 
109) ) , ( 
1 14) ) , ( 
113) ) , ( 
401 ) ) , ( 
001 ) ) 


100 

100,2 

100,2 

DELMAX 

DELI 

F2 

LAST 

NEO 

NSTAG1 

NSTEP3 

STEPGO 

STEPS 

XDOT 


) 

) 

,CMA 
, RUN 
, RUN 
, CMA 
,CMA 
, RUN 
, R UN 
, RUN 
, C M A 
, CMA 


( 702 ) 
( 103 ) 
( 105 ) 
(711) 
( 709) 
(115) 
( 110 ) 
( 112 ) 
(704) 
( 501 ) 


DOUBLF PRECISION XPRIM 

INTEGER STEPGO, STEPNO, SCRIBE, STEPS, STEPMX, FAIL 
DATA FAIL/O/ 

DATA ( AK ( I ) , 1=1 ,3 ) / 0.5, 0.5,1 .0/ , ( AW ( I 5 , I = 1 , 4 ) / . 1 66666666 , . 3333 3 3 3 
1,. 3 33333 333, .166666666/ 

EXTERNAL OUTPUT 


INITIALIZATIONS 
NST AG1=NST AGE 
STEPGO = 0 
STEPN0=0 
SCRIBE = 1 
NSTEP1=1 
NST E P2 =2 
NSTEP3=2 
DELST0=0.0 
DEL l = DEL MA X 


PART 1. SET UP THE STARTING SEQUENCE FOR ERROR CONTROL 
CHECKING THE ERROR UNTIL TWO STEPS ARE COMPLETED. THE 
TOS NST AR T AND IBEGIN CONTROL STARTING. 

1 1=1 

2 H2 = DELT 

3 DO 4J =NST , NEO 
XPRIM( J,2)=XPRIM< J , 1 > 

4 X ( J ) =SNGL ( XPRIMf J,1 ) ) 

NS T ART = 0 

DELT = OELT/2. 

CALL EQUATE 
CALL COAST 
MO DOUT= MODOUT 

GO TO (5,5,5,6,6,71 , MODOUT 

5 NSTEP2=1 

6 IF(STEPG0*SCRlBE.NE.0 ) GO TO 7 


AND DELAY 
ASSIGNED 


ZRUN0001 
ZRUN0002 
Z RUN0003 
ZRUN0004 
Z RUN0005 
ZRIJN0006 
Z RUN0007 
ZRUN0008 
ZRUN0009 
) ZRUNOO 10 
) ZRUNOO 1 1 
) ZRUNOO 12 
) ZRUN0013 
) ZRUNOO 1 4 
) ZRUN0015 
) ZRUNOO 1 6 
) ZRUN0017 
) ZRUN0018 
) ZRUN0019 
Z RUN0020 
ZRUN0021 
ZRUN0022 
ZRUN0023 
33ZRUN0024 
ZRUN0025 
ZRUN0026 
ZRUN0027 
ZRUN0028 
ZRUN0029 
ZRUN0030 
ZRUN0031 
ZRIJN0032 
Z RUN0033 
ZRUN0034 
ZRUN0035 
Z RUN0036 
ZRUN0037 
ZRUN0038 
ZRUN0039 
ZRIJN0040 
ZRUN0041 
GOZ RUN0042 
Z RUN0043 
ZRUN0044 
Z RUN0045 
ZRUN0046 
ZRUN0047 
Z RUN0048 
ZRUN0049 
ZRUN0050 
ZRUN0051 
ZRUN0052 
ZRUN0053 
ZRUN0054 
ZRUN0055 
ZRUN0056 
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10 


11 

12 


13 


14 


15 


16 


17 


18 


19 


20 

21 

22 


23 


EQUATE PRODUCES THE 


CALL OUTPUT) 1) 

SCRIBE = 1 
ASSIGN 18 TO NS T ART 
DO 8 J=NST,NE0 
XDOTPM ( J * 1 ) = XDOT(J) 

X I NC ( J ) = 0. 

CONTINUE 
KSUB = 1 
ASSIGN 13 TO N 

PART 2. RUNGE-KUTTA SUBINTERVAL SCHEME. 

NECESSARY DERIVATIVES XDOT(J). 

DO 11 J = NST»NEO 

XK ( J ) = XDOT(J) * DELT 

XINC(J) = XINC(J) + AW ( KSUB ) *XK ( J ) 

X ( J ) = SNGL(XPRIM(J,2))+AK(KSUB)*XK(J) 

CALL EQUATE 

GO TO N, ( 13,14, 15,17 ) 

PART 3. SUBINTERVALS 2, 3, AND 4, TO STATEMENT 16 FINISH A 

RUNGE-KUTTA STEP AND INCREMENT XPRIM(J,2) IN DOUBLE PRECISION. 

KSUB = 2 

ASSIGN 14 TO N 

GO TO 10 

KSUB = 3 

ASSIGN 15 TO N 

GO TO 10 

DO 16 J= NS T , NEO 

XINC(J) = XINC(J) + AW ( 4 ) *X DOT C J ) * DELT 
XPRIMI J,2 )=XPRIM( J ,2 )+DBLF( XINC ( J) ) 

X< J) = SNGL ( XPR I M ( J , 2 ) ) 

CONTINUE 


THIS ALSO GIVES DERIVATI 


PART 4. BEGIN A NEW RUNGA-KUTTA STEP, 

FOR THE LOWER ORDER INTEGRATION CHECK. 

ASSIGN 17 TO N 
GO TO 12 

GO TO NSTART, (24,20, 18) 

PART 5. STARTING PHASE PROGRAM. 

PART 5 A . THIS SECTION COMPLETES THE FIRST STEP OF STARTING PHAS 
ASSIGN 20 TO NSTART 
DO 19 J = NS T , NEO 
OLDINC( J)=XINC< J ) 

X I NC ( J ) =0 . 

XDOTPM ( J , 2 ) = XDOT(J) 

CONTINUE 
GO TO 9 

PART 5B . MAX ERROR TEST — STARTING ONLY — CHECK THE MAX ERROR AND 
EITHER ENTER RUNNING MODE OR REPEAT START WITH SMALLER STEP. 

GO TO (21 ,29,29,29 ) , I 
DU 22 J = NST , NEO 

X I NC ( J ) = ( X I NC ( J)+OLDINC( J) ) *3 . - ( XDOTPM ( J , 1 ) + XDOT PM ( J , 2 ) *4 . 

1 + XDOT ( J ) ) * D E L T 
CALL ERROR Z 

I F ( E2-FRL I MT ) 23,23,33 
ASSIGN 24 TO NSTART 
ASSIGN 9 TO IBEGIN 
A 1 = A2 


ZRUN0057 
ZRUN0058 
ZRUN0059 
ZRUN0060 
ZRUN0061 
ZRUN0062 
ZRUN0063 
ZRUN0064 
ZRUN0065 
ZRUN0066 
Z RUN0067 
ZRUN0068 
ZRUN0069 
ZRUN0070 
ZRUN0071 
ZRUN0072 
ZRUN0073 
ZRUN0074 
ZRUN0075 
ZRUN0076 
Z RUN0077 
ZRUN0078 
ZRUN0079 
ZRUN0080 
ZRUN0081 
ZRUN0082 
ZRUN0083 
Z RUN0084 
ZRUN0085 
ZRUN0086 
ZRUN0087 
ZRUN0088 
Z RUN0089 
VESZRUN0090 
ZRUN0091 
ZRUN0092 
ZRUN0093 
ZRUN0094 
ZRUN0095 
Z RUN0096 
E. ZRUN0097 
ZRUN0098 
ZRUN0099 
ZRUN0100 
ZRUN0101 
ZRUN0102 
ZRUN0103 
ZRUN0104 
ZRUN0105 
ZRUN0106 
ZRUN0107 
ZRUN0108 
ZR UNO 1 09 
ZRUN01 10 
ZRUNO 111 
ZRUN01 12 
ZRUNO 113 
ZRUN01 14 
ZRUN01 1 5 
ZRUN01 16 
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in 


GO TO 29 

PART 6. RUNNING PHASE PROGRAM. 

PART 6 A . CHECK THE INTEGRATION BY INTEGRATING OVER THE LAST 
RUNGE KUTTA STEP BUT USE DOTS FOR LAST TWO INTERVALS, OLDDEL 
AND DELT RESPECTIVELY. STATEMENT 26 IS THE LOWER INTEGRATION 
MINUS RUNGE-KUTTA INCREMENTS. ERROR Z COMPUTES THE MAXIMUM 
RELATIVE ERROR AND STAGEMENT 27 TESTS THIS ERROR AGAINST THE 
LIMIT VALUE. 

24 GO TO (25,28,28,301,1 

25 RATIO = DELT/OLDDEL 
HFACT = DEL T / ( l. + RATIO) 

AC0EF1 = -RAT I 0*R AT I 0*HF ACT 
ACOEF2=RATIO*(DELT+3.*OLDDEL) 

AC0EF3=DELT+DELT+HFACT 

DO 26 J=NST,NEQ 

26 XINC(J) = ACOEF 1 *XDOT PM ( J , 1 ) +ACOEF 2*XD0T PM ( J , 2 ) — 6 ,#X INC ( J ) 
1+AC0EF3*XD0T ( J ) 

CALL ERRORZ 

27 IF (E2-ERLIMT) 28,28,34 

PART 7. LAST POINT OKAY. ADVANCE THE REMAINING PARAMETERS, FIND 
NEW STEP SIZE. 

H2 = DELT 
OLDDEL = DELT 
CALL STEP (OUTPUT) 

IF(DELT)31,42,31 
DO 32 J = NST , NEQ 
XDOTPM ( J , 1 ) = XDOTPM ( J , 2 ) 

XDOT PM ( J , 2 ) = XDOT(J) 

XPRIM(J,I ) =XPR I M ( J , 2 ) 

XINC ( J ) = 0. 

CONTINUE 

GO TO (9, 9, 3,1 ) , I 


28 

29 

30 

31 


32 


33 

34 


35 


36 

37 

38 

39 

40 

41 

42 


PART 8. COMES HERE 
RETRIEVE OLD POINT 
IF TWO CONSECUTIVE 
OCCURS. 

ASSIGN 2 TO IBEGIN 

DO 35 J = NST , NEO 

XPR I M ( J , 2 ) = XPR I M ( J , 1 ) 

XDOT (J)=XD0TPM(J,2) 

X I NC ( J ) = 0. 

CONTINUE 

STEPNO = STEPNO + 1 
H2 = DELT 

OELT=S IGN (EXP ( ( ERL0G-A2 ) / 5 . ) , DELT ) 
A2 = A 1 

IF ( FA I L-STEPGO ) 37,38,37 
FAIL = STEPGO 
GO TO IBEGIN, (9,2) 

ASSIGN 2 TO IBEGIN 
I FISTEPNO+STEPGO-STEPMX) 39,39,40 
GO TO IBEGIN, (9,2) 

CALL OUTPUT ( 1 ) 

WRITE (6,41) 

FORMAT ( 1X,20HSTEPN0+STEPG0=STEPMX) 

RETURN 

END 


WHEN ERROR TEST FAILED — BOTH STARTING AND RUN. 
AND RECOMPUTE WITH SMALLER INTERVAL. 

TRYS FAIL ( STATEMENT 36) THE STARTING SEQUENCE 


ZRUN0117 
ZRUN01 18 
ZRUN01 19 
ZRUN0120 
ZRUN0121 
ZRUN01 22 
ZRUN0123 
ZRUN0124 
ZRUN0125 
ZRUN01 26 
ZRUN0127 
ZRUN0128 
ZRUN0129 
ZRUN01 30 
ZRUN0131 
ZRUN0132 
ZRUN0133 
ZRUN0134 
ZRUN0135 
ZRUN0136 
ZRUN0137 
ZRUN01 38 
ZRUN0139 
ZRIJN0140 
ZRUN0141 
ZRUN0142 
ZRUN0143 
ZRUN0144 
ZRUN0145 
ZRUN0146 
ZRUN0147 
ZRUN0148 
ZRUN0149 
ZRUN01 50 
ZRUN0151 
ZRUN01 52 
ZRUN01 53 
ZRUN0154 
ZRUN0155 
ZRUN0156 
ZRUN01 57 
ZRUN0158 
ZRUNO 1 59 
ZRUN01 60 
ZRUNO 1 61 
ZRUNO 1 62 
ZRUNO 163 
ZRUN0164 
ZRUN0165 
ZRUN01 66 
ZRUN0167 
ZRUN0168 
ZRUNO 1 69 
ZRUN0170 
ZRUNO 1 7 1 
ZRUNO 1 72 
ZRUN0173 
ZRUN01 74 
ZRUN0175 
ZRUNO 176 
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FUNCTION SADDA(N,M) 

SUBROUTINE SAOOA SUMS UP THE DIFFERENCE ( S ( J , 2 ) -S ( J , 1 ) ) 
FOR PHASES N THROUGH M. 

COMMON /CSTAR/ CMA ( IOOO ) ,CMR ( 1000 ) 

DIMENSION S (6 ,2 ) 

EQUIVALENCE (S ,CMB(074)I 

SADDA=0 . 0 
IF(N.GT.M) RETURN 
DO I J = N,M 

1 SADDA=SADOA+S( J,?)-S(J,1) 

RETURN 

END 


ZSADOOOI 

ZSAD0002 

ZSAD0003 

ZSAD0004 

ZSAD0005 

ZSAD0006 

ZSAD0007 

ZSAD0008 

ZSAD0009 

ZSAD0010 

ZSAD0011 

ZSAD0012 

ZSAD0013 

ZSAD0014 


FUNCTION SADDB(I,N,M) 

SUBROUTINE SADDB SUMS UP THE S(J,I) S FOR PHASES N 
THROUGH M. 

COMMON /CSTAR/ CMA ( 1 000 ) , CMH ( 1 000 ) 

DIMENSION S (6 ,2 ) 

EQUIVALENCE (S ,CM8(074)) 

S ADDB=0 . 0 
IF(N.GT.M) RETURN 
DO 1 J = N,M 
1 SADDB = S ADDB + S ( J » I ) 

RETURN 

END 


ZSADOOOI 
ZSAD0002 
ZSAD0003 
ZSAD0004 
ZSAD0005 
ZSAD0006 
ZSAD0007 
ZSAD0008 
ZSAD0009 
ZSADOO 10 
ZSAD0011 
ZSADOO 12 
ZSADOO 1 3 
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SUBROUTINE SCOMP(N) 

SUBROUTINE SCIJMP COMPUTES VALUES TO WHICH THE 
niFFERFNCES IN FINAL ARE COMPARED IN ORDER TO CHECK THE 
RELATIVE MAGNITUDE OF THE ERROR IN FINAL CONDITIONS. 


COMMON /CSTAR/ CMA ( 1000 ), CMB ( 1000 ) 
COMMON /FINCMP/ FNCP(6,5) 

DIMENSION COMP (5 ), CONST (5 ,2 

DIMENSION FVD (5 ) , I DATA (6 ,5 


(6 ,2 ),X (100 

(BETA ,CMA(880) ) , (COMP 
( ENERGY ,CMA( 89 2) ) , ( FLOMX 


),FLOMX (6 
> ,JFINAL(6 
) 

,CMH(031 ) ) 
tCMA< 837 ) ) 


, CMA ( 8940 
,CMA( 715 ) 


( FYD 
(LAST 
( NOPTA 
( S 
( X 

( 7.LAM3 


, CMB ( 036 ) ) , 

, CMA ( 890) ) , 

, CMB ( 070 ) ) , 

,CMB ( 074 ) ) , 
,CMA(401 ) ) , < ZLAM1 
,CMA ( 408 ) ) 


( IDATA 
(NCUTE 
( OMEGA 
(U 


(CONST 
( FM 

, CMB (086) ) , ( J F I NAL , CMB ( 136) 
,CMA(893)),(NFINAL,CMA(879) 
, CMA ( 402 ) 
,CMA< 889) 

( ZLAM2 


, CMA ( 405 ) ) , (R 
, CMA ( 604 ) ) , ( V 
, CMA (406 ) ) 


r CMA ( 407 ) 


DIMENSION S 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
I = 0 

IF(N.GT.l) GO TO 4 
IF(NFIMAL.NF.l ) RETURN 

AS A CONVENIENCE FOR THE USER, RADIUS, FLIGHT PATH ANGLE, AND 
ENERGY MAY BE SUBSTITUTED FOR RADIUS, RADIAL VELOCITY, AND ANGUL 
VELOCITY BY SETTING THE ANGULAR VELOCITY DESIRED TO ZERO. IF 
ANGULAR VELOCITY ( F Y D ( 3 ) ) IS ZERO, THE RADIAL AMD ANGULAR 
VELOCITIES ARE COMPUTED FROM THE FLIGHT PATH ANGLE AND ENERGY. 

I F ( F Y D ( 3 ) .ME. 0.0) GO TO 3 

VEL = S0RT(2.0*(ENERGY+FM/FYD( 1) ) ) 

FYD ( 2 ) =VEL*S I N (BETA) 

FYD(3)=VEL-C0S(BETA)/FYD( 1) 

COMPARISON VALUES FOR SPECIFIED RADIUS, RADIAL VELOCITY, AND 
ANGULAR VELOCITY 

COMP ( 1 ) = 1 . / F YD ( 1 ) 

COMP(2)=SORT(FYD( 1 ) /FM) 

COMP (3)=C0MP(2)*FYD( 1) 

RETURN 

I F ( NCUTE . EO . 0 ) I = 1 
GO TO (8, 5, 6, 7) , NF I NAL 


SPECIFIED ENERGY, WITH OPTIMIZED 


COMPARISON VALUES FOR 
RADIUS AND VELOCITY. 
COMP ( 1 )=1 .0/ZLAM3/V 
C0MP(2)=1.0/ZLAM2/V 
COMP ( 3 ) =R/ FM 

GO TO 8 


COMPARISON VALUES FOR SPECIFIED ENERGY 
WITH OPTIMIZED RADIUS. 

COMP ( 1 )=1 .0 
COMP ( 2 )=R/FM 
C0MP(3)=1.0/ZLAM3 


AND FLIGHT PATH ANGLE 


ZSC00001 
Z SC00002 
ZSC00003 
Z SC00004 
Z SC00005 
Z SC00006 
ZSC00007 
Z SC00008 
Z SC00009 
ZSC00010 
ZSC00011 
) ZSC00012 
) ZSC00013 
) ZSC00014 

) ZSC00015 

) ZSC00016 

) ZSC00017 
) ZSC00018 
ZSC00019 
Z SC00020 
ZSC00021 
Z SC00022 
ZSC00023 
Z SC00024 
ARZ SC00025 
ZSC00026 
ZSC00027 
ZSC00028 
ZSC00029 
Z SC00030 
ZSC00031 
Z SC00032 
ZSC00033 
Z SC00034 
ZSC00035 
ZSC00036 
ZSC00037 
ZSC00038 
Z SC00039 
Z SC00040 
ZSC00041 
ZSC00042 
Z SC00D43 
Z SC00044 
Z SC00045 
Z SC00046 
ZSC00047 
Z SC00048 
ZSC00049 
Z SC00050 
ZSC00051 
Z SC00052 
Z SC00053 
Z SC00054 
ZSC00055 
Z SC 000 5 6 
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GO. TO 8 

COMPARISON VALUES FOR SPECIFIED ENERGY AND PERIGEE RADIUS, WITH 
OPTIMIZED INJECTION TRUE ANOMALY. 

7 COMP ( 1 ) =1 . 0/ F YD ( 1 ) 

C0MP( 2 1=1.0/ SORT! (ZLAM1*(R*0MEGA**2-FM/R**2) ) **2+U**2* ( ZLAM3**2 
1+4.0*0MEGA**2+ZLAM2**2 ) ) 

COMP ( 3 ) =R/FM 

THIS SECTION CONTAINS THE COMPARISON VALUES FOR THE FINAL 
CONDITIONS FOR OPTIMIZING PHASE DURATION. THE EQUATION NUMBERS 
FROM PAYLOAD OPTIMIZATON OF MULTISTAGE LAUNCH VEHICLES ARE LISTED 
WITH THE EQUATION. 

8 DO 14 J = 1 , L A ST 

IF( JFINAL ( J ) .EQ.O) GO TO 14 
K = JFINAL(J) 

I = 1 + 1 

GO TO ( 9, 12 ) ,K 

9 IF( IDATAI J+l ,5) .EQ.O) GO TO 10 
EQUATION 4 1C 

COMP ( I+2)=1.0/C0NST(J,2) 

GO TO 14 

10 IF (J.GT.MOPTA+1) GO TO 11 
EQUATION 48B 

COMP ( 1+2 )=1.0/S0RT(FNCP< J, 1 )*-2+FNCP( J,2)*-2) 

GO TO 14 
EQUATION 48 A 

11 COMP ( 1+2 ) =1 .O/SORTI FNCP ( J ,1 ) **2+FNCP ( J , 2 ) **2 + ENCP ( J , 3 ) **2 
l+FNCPI J,4)**2+FNCP( J,5)*-2 ) 

GO TO 14 

12 I F ( J.EO.LAST) GO TO 13 
EQUATION 47 

COMP ( I+2)=1.0/SGRT(FNCP(J,1)**2*IFNCPI J,2)**2+FNCP( J,3>**2+ 

IFNCPf J,4)**2) + FNCP< J , 5 >**2 ) 

GO TO 14 
EQUATION 50 

13 COMP ( 1+21=1.0/ SORT! ENCP ( J , 1 ) =s=*2 + FNCP ( J , 2 ) **2* ( FNC P ( J , 3 ) **2 
l+FNCPI J,4)**2+FNCP(J,5)**2) ) 

14 CONTINUE 
RETURN 
END 


ZSC00057 

ZSC00058 

ZSC00059 

Z SC00060 

ZSC0006 1 

ZSC00062 

Z SC00063 

Z SC00064 

ZSC00065 

Z SC00066 

ZSC00067 

ZSC00068 

Z SC00069 

ZSC00070 

ZSC00071 

ZSC00072 

Z SC00073 

Z SC00074 

ZSC00075 

ZSC00076 

ZSC00077 

ZSC00078 

ZSC00079 

ZSC00080 

ZSC00081 

ZSC00082 

Z SC00083 

ZSC00084 

ZSC00085 

Z SC00086 

ZSC00087 

Z SC 0008 8 

ZSC00089 

Z SC 00090 

ZSC0009 1 

Z SC00092 

ZSC00093 

Z SC00094 

ZSC00095 

Z SC00096 

ZSC00097 

Z SC00098 

Z SC00099 

ZSC00100 

ZSC00101 

ZSCU0102 

ZSC00103 

ZSC00104 

ZSC00105 
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SUBROUTINE SETUP 


C 


SUBROUTINE SETUP CONVERTS THE MODE I NEORMAT I ON WHICH 
ENTERS THROUGH THE INPUT ROUTINE INTO MODOUT AND MODS WHICH 
ARE USED IN STEP (SEE STEP). ALSO TMIN AND STEPS ACQUIRE THE 
PROPER VALUES FROM INPUT DATA. THE INITIAL DELT IS COMPUTED 
IN THIS ROUTINE. THIS ROUTINE APPLIES TO THE BOOSTER PORTION 
ONLY. 


COMMON /CSTAR/ CMA < 1000 ) ,CMH ( 1000 ) 

DIMENSION DELMXB ( 2 ) , MODEB (2 ), STEPB (2 ) 

DIMENSION TMINB (2 ),TS (A ) 

EQUIVALENCE < DEL MAX, CM A < 702) ) , (DELMXB, CMB( 174) ) , (DELT , CMA (701 ) ) 
EQUIVALENCE ( DEL TBT , CMA ( 803 ) ) , ( I MOOE ,CMB ( 061 ) ) , ( K ,CMB(182)) 

EQUIVALENCE (MODEB , CMB ( 172 ) ) , ( MODOUT , CMA ( 7 1 4 ) ) , ( MODS ,CMA(712)) 
EQUIVALENCE (NSTAGE ,CKA (710) ) , ( STEPB ,CMB ( 176 )),( STEPS ,CMA(704)) 
EQUIVALENCE (TIME , CM A ( 0 1 7 ) ) , ( TM I N , CM A ( 703 ) > , ( T.M I NB ,CMB(178>) 
EQUIVALENCE (TS ,CMA(932)) 

INTEGER STEPB, STEPS 

THIS ROUTINE IS SIMILAR TO DAMODE , BUT REFLRS TO THE BOOSTER 
N= I MODE+ 1 


K IS USED IN STEP AS AN IOEX OF NOUT 
K = 3 

SET MODOUT 

MODOUT = MODEB (N)/ 10 
SET MOOS 

MODS = MOD(MODEB(N) ,10) 

SET DELMAX 
DELMAX = DELMXB ( N ) 

SET STEPS 
STEPS = STEPB(N) 

SET TMIN 

TMIN = TMINB(N) 

SET DELT 

DELT=AMIN1 ( DEL TB T , TS ( NS T AGE ) -T I ME ) 

IF( DELT. GT.TMIN-TIME. AND. MODOUT. EQ.l ) DELT = TMIN 
I F ( DELT. GT. DELMAX. AMD. ( MODOUT . EO . 2 . OR . MODOUT . EQ . 3 ) ) DELT=DELMAX 

RETURN 

END 


ZSET0001 

7.SET0002 

Z SET 0003 

ZSET0004 

ZSET0005 

Z SE T 0006 

ZSET0007 

ZSET0008 

Z S E T 0009 

ZSET0010 

Z SE TOO 1 1 

ZSET0012 

ZSET0013 

ZSET0014 

Z S E TOO 1 5 

Z SE TOO 1 6 

ZSET0017 

ZSET0018 

ZSET0019 

ZSET0020 

ZSET0021 

ZSET0022 

ZSET0023 

Z S E T 0024 

Z S ET 002 5 

ZSET0026 

Z SE T 002 7 

ZSET0028 

Z SET0029 

ZSET0030 

ZSET0031 

Z S ET 0032 

Z SE T 003 3 

Z S E T 0034 

ZSET0033 

ZSET0036 

ZSET0037 

Z S ET 0038 

Z SET0039 

Z SET0040 

Z S E T 0041 

ZSET0042 

Z SET 0043 

Z SE T 0044 

Z SET0045 

ZSET0046 

Z SET0047 
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SUBROUTINE SORTXY(X,Y,NPTS) 

SRTX0001 

SRTX0002 


THIS ROUTINE IS CALLED BY MAINA TO ORDER THE LIST OF KICK 

SRTX0003 


ANGLES. IT WAS OBTAINED FROM REFERENCE 6. 

SRTX0004 

SRTX0005 


DIMENSION X( 1 ) , Y( 1 ) 

SRTX0006 

100 

N=NPTS 

SRTX0007 

102 

NN = N— 1 

SRTX0008 

104 

DO 140 K T = 1 , NN 

SRTX0009 


X-M IN = X ( KT ) 

SRTX0010 


J AD=KT 

SRTX001 1 


J KL = K T + 1 

SRTX0012 

112 

DO 120 JK=JKL,N 

SRTX0013 

114 

IF ( XMIN-X( JK ) ) 120,120,116 

SRTX0014 

116 

X M I N = X ( J K ) 

SRTXOO 1 5 

118 

J A D= JK 

SRTX0016 

120 

CONTINUE 

SRTX0017 

122 

YM I N = Y ( J A D ) 

SRTXOO 18 


X ( JAD ) = X ( K T ) 

SRTX0019 


Y ( J A D ) = Y ( K T ) 

SRTX0020 


X ( K T ) = XMIN 

SRTX002 1 


Y ( KT ) =YM I N 

SRTX0022 

140 

CONTI NUF 

SRTX0023 


RETURN 

SRTX0024 


END 

SRTX0025 


SUBROUTINE SIMPRO 


SUBROUTINE 
FOR THE BOOSTFR 
ACTUAL = THRUST 


SIMPRO COMPUTES THE THRUST AND FLOW 
PORTION OF THE PROGRAM UTILIZING THRUST 
VACUUM -F X I T ARFA * ATMOSPHERIC PRESSURE. 


COMMON /CST 

DIMENSION E 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

PUSH = FORC 

FLOW=WTFLOW 

CALL THRUST 

RETURN 

END 


AR/ CMAI 1000) ,CMB( 1000) 

XITS (6 ) , FORC E S ( 6 

(EXITS * CM A ( 727 ) ),<FLOW , 
(NSTAGE»CMA(710) ) , ( PA , 
( WTFLOW,CMA( 733 ) ) 

ES ( NS T AGE ) -PA*E X I TS ( NSTAGE ) 
( NS T AGE ) 


) 

CMA 

CMA 


WTFLOW ( 6 ) 

752 ) ) , ( FORCES, CMA ( 739) ) 
806)), (PUSH , CM A ( 75 1 ) ) 


ZSMP0001 
ZSMP0002 
Z SMP0003 
ZSMP0004 
ZSMP0005 
ZSMP0006 
ZSMP0007 
ZSMP0008 
ZSMP0009 
ZSMP0010 
ZSMP0011 
ZSMP0012 
ZSMP0013 
ZSMP0014 
ZSMP0015 
ZSMPOO 16 
ZSMP0017 
Z SM POO 1 8 
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FUNCTION SST AGE (THRUST , FLOW, WT ) 

SUBROUTINE SSTAGE COMPUTES THE S S DEFINED IN EQUATION 
41 IN PAYLOAD OPTIMIZATION OF MULTISTAGE LAUNCH VEHICLES. 

AS DEFINED IN THE RFPORT, THFSF EQUATIONS ARE USED TO EFFECT 
OPTIMUM PHASING. 

COMMON /CSTAR/ CM A ( 1 OOO ) , CMB ( 1 OOO ) 

EQUIVALENCE ( FM , C M A ( 7 1 5 ) ) , ( G , CMA ( 7 1 b ) ) , ( OMFGA ,CMA(405)) 

EQUIVALENCE (R , CMA ( 402 ) ) , ( U ,CMA ( 404 ) ) , ( ZLAM1 ,CMA(406)) 

EQUIVALENCE (ZLAM2 , CM A ( 407 ) ) , ( Z L AM3 , CMA ( 408 ) ) , ( Z L AM4 ,CMA(B84)) 

IF (FLOW. EO. 0.0) GO TO 1 

SSTAGE= ( ( FM/R**2-OMEGA**2*R >*ZLAM1+2.0*U*0MEGA*ZLAM2-U* 

1ZLAM3— 0MEGA4ZLAM4— G*THRUST/WT*S0RT ( ZL AM 1 *=s=2 + Z L AM2 **2 ) ) / FLOW 
GO TO 2 

1 SSTAGE =0.0 

2 RETURN 
END 


ZSST0001 
ZSST0002 
Z SST0003 
ZSST0004 
ZSST0005 
Z SS T 0006 
ZSST0007 
Z SS T 0008 
Z SST0009 
ZSST0010 
ZSST0011 
ZSST0012 
ZSST0013 
ZSST0014 
Z SS TOO 1 5 
Z SS T 00 1,6 
ZSST0017 
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c 

c 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


SUBROUTINE STAGE 

SUBROUTINE STAGE IS CALLED FROM STEP TO PERFORM THF 
OPERATIONS NEEDED TO CHANGE FROM ONE PHASE TO THE NEXT. 


COMMON 

COMMON 

DIMENSI 

0 I MENS I 

D-IMENSI 

DIMENSI 

DIMENSI 

EOUIVAL 

EQUI VAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

EOUIVAL 

DOUBLF 


/RUNG/RUN ( 125) 
/CSTAR/ CMAdOOO 


ON 
ON 
ON 
ON 
ON X 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
ENCE 
FNCE 
ENCE 
ENCE 
ENCE 


) tCMB ( 1000 ) 

COMPA (3 ) t DRAG (3 ),FLOMX (6 ) 

FORCE (3 ) t FUEL (6 ) , HARD (6 ) 

HARDB (6 ) tOBLAT (3 ) , PROP (6 ) 

S (6 ,2 ) , THRUST ( 6 ),VELFXP(6 ) 

X (100 ) , X PR I M (100,2 ) 

(CD ,CMA(812) ), (COMPA , CMA ( 7H 3 ) ) , ( C PS I ,CMA(888 )) 
( DE.LTAV »CMA ( 861 ) ) , ( DRAG , CMA ( 777 )),( DROP ,CMA<863)) 
( FLOMX ,CMA<837) ) , (FLOW , CMA ( 877 ) ) , ( FM ,CMA(715)) 
(FORCE ,CMA(774) > , (FUEL , C MA ( 8 7 1 ) ) , ( FUE L DV , CMA ( 8 78 ) ) 
(G , CM A ( 7 1 6 ) ),{HARD , CMA ( 843 )),( HARDB ,CMA(72D) 

(IMODE , CMB ( 061 ) ) , (JCOST , CMB ( 1 29 ) ) , ( J D AT A ,CMA(925)) 
(LAST , CMA ( 890 ) ) , ( NEO , CMA ( 709 ) ) , ( NST AGE , CMA ( 7 1 0 ) ) 
(NSTAG1 ,RUN( 115) ) , (OBLAT , CMA ( 780 )),( OMEGA ,CMA(405)) 
(806)), (PROP , CMA (849) ), (OVAL ,CMA(808)) 
(402 ) ) , ( RESFR V ,CMA ( 862 ) ) , ( RMASS ,CMA( 201 ) ) 
(0 74) ) , (SPSI , CMA (887) ) , (THRIJST,CMA( 831 ) ) 
(404) ) , ( VELEX , CMA (870) ),(VELEXP,CMA(864)) 
(811)), (WEIGHT, CM A (203 ) ) , ( X ,CMA (401 ) ) 

(001 ) ) 


( PA 
(R 
(S 
(U 

( VMACH 
( XPR IM 


, CM A 
,CMA 
, CMB 
,CMA 
,CMA 
, CMA 


PRECISION XPRIM 


IMODE = 2 IMPLIES UPPER PHASE OPERATION 
I F ( IMODE. EO. 2 ) GO TO 2 

REINITIALIZE 
C 0=0.0 
VMACH=0.0 
P A=0 . 0 
OVAL = 0 . 0 
DO 1 J = 1,3 
FORCE ( J ) =0 . 0 
DRAG) J >=0.0 
OBLA T ( J ) =0 . 0 

1 COMPA ( J ) = 0 . 0 

I F ( IMODE. EO.O) RETURN 

DROP WEIGHT BETWEEN SEGMENTS FOR BOOSTER OPERATION 
WEIGHT = WEIGHT— HARDB(NSTAG1 ) 

X ( 2 ) =WF I GHT 
RETURN 

UPPER PHASE 

CALL CONE VL TO EVALUATE CONSTANT 

2 CALL CONEVL ( FLUW,NSTAG1 -1 ) 


COMPUTE S ( N , 2 ) BEFORE PHASING 
I F ( FLOW . NE . 0 . 0 ) GO TO 3 
S(NSTAG1,2)=0.0 


ZSTA0001 

ZSTA0002 
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ZSTA0004 

ZSTA0005 
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ZSTA0007 

ZSTA0008 

ZSTA0009 

ZSTA0010 

ZSTA0011 

ZSTA0012 

ZSTA0013 

ZSTA0014 

ZSTA0015 

ZSTA0016 

ZSTA0017 

ZSTA0018 

ZSTA0019 

ZSTA0020 

ZSTA0021 

ZSTA0022 

ZSTA0023 

ZSTA0024 

ZSTA0025 

ZSTA0026 

ZSTA0027 

ZSTA0028 

ZSTA0029 

ZSTA0030 

ZSTA0031 

ZSTA0032 

ZSTA0033 

ZSTA0034 

ZSTA0035 

ZSTA0036 

ZSTA0037 

ZSTA0038 

Z STA0039 

ZSTA0040 

ZSTA0041 

ZSTA0042 

ZSTA0043 

ZSTA0044 

ZSTA0045 

ZSTA0046 

ZSTA0047 

ZSTA0048 

ZSTA0049 

ZSTA0050 

ZSTA0051 

ZSTA0052 

ZSTA0053 

ZSTA0054 

ZSTA0055 

ZSTA0056 
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GO TO 4 

3 S < NSTAG1 ,2 )=SSTAGE< THRUST (NSTAG1 > . FLOW f RMASS ) 

COMPUTE FUEL REOUIREO TO PERFORM IDEAL OELTAV AFTER 
LAST PHASE. 

4 IFINSTAGE.NE.LAST+l ) GO TO 6 

I F ( VELEXP(LAST) .EO.O.O) GO TO 5 

FUEL DV= ( RMASS-DROP )=* < 1 .O-FXP ( - < DELTA V + RESFRV)/VELEXP(LAST))) 
RETURN 

5 FUEL DV = 0 . 0 
RETURN 

DROP WEIGHT BETWEEN PHASES 

6 RMASS = RMASS-HARD ( NSTAG1 )-FUEL ( NSTAG1 ) * P ROP ( NSTAGX ) 

X( I ) = R M A S S 


SET JET VELOCITY AND FLOW FOR NEXT PHASE 
VELEX=VELEXP(NSTAGE) 

FLOW=FLOMX(NSTAGE) 

COMPUTE S FOR BEGINNING OF NEW PHASF 
S ( NST AGE 1 1 )=SSTAGE(THRUST (NS T AGE) , FLOW, RM ASS) 

SET FLAG FOR COAST 
JCOST = 6 

RETURN 

END 


ZSTAOOS7 
ZSTA00S8 
ZSTA0059 
ZSTA0060 
ZSTA0061 
ZSTA0062 
ZSTA0063 
ZSTA0064 
ZST A0065 
ZSTA0066 
ZSTA0067 
ZSTA0068 
ZSTA0069 
ZSTA0070 
ZSTA0071 
ZSTA0072 
ZSTA0073 
ZSTA0074 
ZSTA0075 
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ZSTA0080 
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ZSTA0083 
ZSTA0084 
ZSTA0085 
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I c 
c 
c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE START ( N ) 

SUBROUTINE START PERFORMS THE REQUIRED INITIALIZATIONS 
BEFORE RUNGEK IS CALLED TO PERFORM THE INTEGRATION. 

CUMMON/ATABLF/CME ( BOOO ) 


ZSTAOOOl 

ZSTA0002 

ZSTA0003 

ZSTA0004 

ZSTA0005 

ZSTA0006 


COMMON /CSTAR/ 

CMA (1000) 

,CMB( 1000) 



ZSTA0007 

DIMENSION 

FLOMX 

(6 


) , FUEL (6 

) , H A R 0 

(6 ) 

ZSTA0008 

DIMENSION 

I DATA 

(6 

*5 

) , JCOAST ( 6 

) , NOPT 

(6 ) 

ZSTA0009 

DIMENSION 

NTB 

(4 


) , PA R (6 ,2 

) , PROP 

(6 ) 

ZSTA0010 

DIMENSION 

S 

(6 

» 2 

) , TB (6 

) , TBOOST ( 6 ) 

ZSTA0011 

DIMENSION 

TEMP 

(10 


) , THRUST ( 6 

>,TS 

(6 ) 

ZSTA0012 

DIMENSION 

V 

(6 


) ,VELEXP(6 

), XINPT 

( 100 ) 

ZSTA0013 

DIMFNSION 

XO 

(6 

,5 

) 



ZSTA0014 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EOUIVALFNCE 
EQUIVALENCE 
EOUIVALFNCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EOUIVALFNCE 
EQUIVALENCE 
EOUIVALFNCE 
EQUIVALENCE 
EOUIVALFNCE 
I T ER PD = 0 
I TERPD= 1 
DATA I HUNT /O/ 
INTEGER FIXDTK 


,CMA ( 
,CMA( 
,CME ( 


( ELEV 
( FLOW 
( FUELT 
( HARDB T , CME ( 
(I MODE ,CMB( 
( I TERPD. CMB ( 
(LAST ,CMA( 
(MASH ,CMB( 
( NST AGE ,CMA ( 


790) ) , (FIXDTK, CMB 
8.77 ) ) , ( FM ,CMA 

0 1 4 ) ) , ( G , CMA 

015) ) » ( I DATA , CMB 
061))., (ITER ,CMB 
060) ) , ( JCOAST,CMB 
711 ) ) , (LAST1 , CMA 
064) ) , ( NFQ 
710) ) , (MTB 

(PAR ,CMB( 142 )), (PROP 
(PSIO , CMA ( 88 1 ) ) , ( R 
(S ,CMB ( 074 ) ) , ( TB 

( TBURN ,CMB(065) ), (THRUST, CMA 
(TS ,CMA(932) ),(TSPM ,CME 
(V ,CMB( 154) ) , (VELEX 

(WTO ,CMA( 720) ) , (XINPT 
(ZLAMO , CMA (883) ) , (ZLAM1 
(ZLAM3 ,CMA( 608 ) ) , ( ZLAM4 
OPTIMIZE TKICK 
FIXED TKICK 


, CM A 
,CMB 
, CMA 
,CMA 
, CMA 


,CMA 
, CMA 
,CMA 
, CMA 


(071 ) 

(715) 

(716) 
(086) 
(068) 
(130) 
(753) 
(709) 
(116) 
( 849 

( 602 ) 
(825) 
(831 ) 
( 010 ) 
(870) 
(601 ) 
( 606 ) 
( 884) 


( FLOMX 
( FUEL 
( HARD 
( IKICK 
( ITERAD 
( JCOST 


) , ( LAST2 


) • 
) ■ 
) ) • 
) • 
) ■ 


(NOPT 
( OMEGA 
(PS I DO 
( ROA 
( T BOO ST 


) , ( TKICK 
) , (U 

) , ( VELEXP 
) 

) 

) 


( XO 

( ZLAM2 


,CMA( 837 ) 
, CMA (871 ) 
, C M A ( 8 4 3 ) 
, CME ( 200 ) 
C M B ( 0 6 7 ) 
,CMB( 129) 
,CMA ( 890 ) 
, CMA (819) 
,CMA ( 605 ) 
, CMA ( 882 
, C M B ( 0 6 2 ) 
, CMA ( 745 ) 
, C M B ( 0 5 9 ) 
, CMA ( 604 ) 
, CMA (864) 
, CMB (001 ) 
,CMA( 607 ) 


SET TIME RATE OF CHANGE OF THRUST ANGLE FROM PERTURBATION 
ARRAY (XO) 

PS I DO = XO ( N , 1 ) 

ITER EQUALS NUMBER OF PHASE DURATIONS IN EXTERNAL ITERATION. 

I F ( ITER.EQ.O) GO TO 2 

KB = 2 

ITERAD EQUAL TO THREE IMPLIES THAT THE BOOSTER BURNING TIME 
IS PART OF THE ITERATION. 

I F ( ITERAD. EO. 3) KB=1 

DO 1 J = 1 , ITER 

NTB(J) CONTAINS THE PHASF NUMBFRS OF THE PHASE DURATIONS TO BE 
OPTIMIZED IN THE EXTERNAL ITERATION. 

K = NTB ( J ) 


ZSTA0015 

ZSTA0016 

ZSTA0017 

ZSTA0018 

ZSTA0019 

ZSTA0020 

ZSTA0021 

ZST A0022 

ZSTA0023 

Z STA0024 

ZSTA0025 

ZSTA0026 

ZSTA0027 

ZSTA0028 

ZSTA0029 

ZSTA0030 

ZSTA0031 

ZSTA0032 

ZSTA0033 

ZSTA0034 

ZSTA0035 

ZSTA0036 

ZSTA0037 

ZSTA0038 

ZSTA0039 

ZSTA0040 

ZSTA0041 

ZSTA0042 

ZSTA0043 

ZSTA0044 

ZSTA0045 

ZSTA0046 

ZSTA0047 

ZSTA0048 

ZSTA0049 

Z STA0050 

ZSTA0051 

ZSTA0052 

ZSTA0053 

ZSTA0054 

ZSTA0055 

ZSTA0056 
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KA=J+KB 

SET PHASE DURATION FOR APPROPRIATE PHASES FROM PERTURBATION 
ARRAY (XO) 

1 TB(K)=XO(N,KA) 

2 I F ( ITERAD.E0.3) GO TO 4 

ITERPD EQUAL TO ONE IMPLIES THAT THE KICK ANGLF FOR THE BOOSTER 
IS FIXED AND THE THRUST ANGLE (PSIO) MUST BE SET FROM THE 
PERTURBATION ARRAY ( XO ) 

I F ( ITERPI). EO.l ) GO TO 3 

SET KICK ANGLE FROM PERTURBATION ARRAY ( XO ) 

TKICK=XO(N,2 ) 

GO TO 4 

3 PS I 0= XO ( N , 2 ) 

INTEGRATE BOOSTER FOR FIXFD KICK ANGLE AND BURNING TIME 

4 GO TO (5,8,6) , F I X D T K 

SET IMODE FOR BOOSTER 

5 IF( IKICK.NE.O. AND. IMODE. NE.O) GO TO 51 
INTEGRATE VERTICAL RISE IF REQUIRED 

I M0DE=0 
CALL MAINB 
51 I M0DE=1 

TBURN = TB ( 1 ) +T S PM 

SETUP SETS OUTPUT CONTROLS 
CALL SETUP 

SET ELEVATION ANGLE EQUAL TO TKICK 
ELEV=TK ICK 

SET TIME FOR END OF BOOSTER PORTION 
TBOOST ( L AST 1 )=TB(1 ) 

PRINT HEADINGS 
CALL OUT PT 2 ( 0 ) 

MAINB CALLS RUNGEK TO INTEGRATE TRAJECTORY. 

CALL MAINB 

SET FIXDTK TO TWO TO PREVENT RE I NT FGR AT I ON OF THF BOOSTER. 

F I XDTK=2 

I M0DE=2 
LAST=LAST2 
GO TO 7 

M A I N A CONTROLS GENERATION OF BOOSTER TABLF AND I NT FR POL AT I ON 
SCHEME. 

6 CALL MAINA 

IF MASH EQUALS ONE, DIFFICULTIES HAVE BEEN ENCOUNTERED IN MAINA 
AND CONTROL IS RETURNED TO MAIN FOR CORRECTION. 

IF (MASH. EO.l) RETURN 
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ZSTA0079 
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1 


C 

C 


c 

c 

c 

c 


c 


c 

c 


c 

c 


c 

c 


COMPUTE INITIAL WEIGHT OF FIRST UPPER PHASE 

7 XINPTI 1 )=WTO-FlJELT-HARD8T-( 1.0+ PROP ( 1 ) )*FL0MX( 1 ) *TB ( 1 ) -HARD! 1 ) 

COMPUTE RADIUS 
XINPT(2)-R0A+V( I ) 

SET INITIAL RADIAL VELOCITY 
XINPT(4)=V(2) 

COMPUTE INITIAL ANGULAR VELOCITY 
XINPT(5)=V(3)/XINPT(2) 

SET TIME AT BEGINNING FOR FIRST UPPFR PHASE 
X I NPT ( 9 ) =TBURN 

SET TS(1) TO TOTAL BURNING TIME OF BOOSTER SEGMENTS 

8 TS(1)=TBURN 

LAST=LAST2 

SET FLAG FOR COAST 
JC0ST=6 

COMPUTE PROPELLANT LOADING FOR ALL UPPER PHASES FOR 
WHICH THE PHASE DURATION HAS BEEN DETERMINED AND SET THE 
TS LIST FOR AS MANY AS POSSIBLE (UNTIL A PHASE IS ENCOUNTERED 
WHICH IS TERMINATED BY COAST) 

FUEL ( 1 ) =TB ( 1 )*FLOMX( 1 ) 

DO 9 J = 2, LAST 
I F ( J COAST ( J ) .NE .0 ) GO TO 10 
FUEL ( J ) =TB ( J K-FLOMX ( J ) 

9 TS(J )=TS(J-1 )+TB(J ) 

GO TO 1 1 

10 IS(J)=TS(J-1)+10000.0 

SET NSTAGE FOR UPPFR PHASES 

11 NSTAGF=2 

SET JET VELOCITY AMD FLOW R AT F FOR THE FIRST UPPFR PHASE 
VELFX = VFLEXP ( 2 ) 

FLOW=FLOMX ( 2 ) 

GO TO (12,16,16), I TERAD 

12 I F ( IDATA(2,5) .EO.l ) GO TO 13 

EQUATIONS BIO AMD B13 

APART=( PAR (2 , 1 )/FLOMX( 1 ) + ( 1 . O+PROP ( 1 ) ) / FLOMX ( 2 ) * ( FM/R**2 -OMEG A**2 
1R ) )*PAR ( 1 ,2 )-( 1 .0/FL0MX( 1 )-( 1 .0 + PROP ( 1 ) ) / FLOMX ( 2 ) ) *11* PAR ( 2 , 2 ) 
BPART= (R/FLOMX( 1 )*PAR(3,1 )+2.0#( 1 .O + PROP (1 ) ) /FLOMX ( 2 >*U*OMEGA ) 

1 * PAR ( 1,2 )-( 1.0/ FLOMX ( 1 ) — ( 1 .O+PROP ( 1 ) ) /FLOMX ( 2 ) ) *(J*R*PAR ( 3 , 2 ) 
CPART=( 1 .0/ FLOMX ( 1 ) - ( 1 . O+PROP ( 1 ) ) / FL OM X ( 2 ) ) * ( OMFGA ) *P AR (1,2) * 

1ZLAM4+?LAM0*G*THRUST(2 ) /XINPTI 1 ) * ( 1. O+PROP ( 1 ) ) /FLOMX (2 )*PAK ( 1 , 2 ) 

GO TO 14 

EQUATIONS RIO AND B13 WHEN FLOW = 0 
EOUIATIONS RIO AND B13 WHFN FLOW = 0 

13 APART= ( FM/R**2-OMFGA**2*R ) *PAR ( 1 , 2 )+U*PAR ( 2, 2 ) 

B PART =2 .0*1)* OMEGA* PAR ( 1 , 2 ) + U*R* P AR ( 3 , 2 ) 

CPART= ( OMEGA *PAR ( 1 ,2 ) )*ZLAM4 

14 ABSQ=APART**?+BPART**2 

EQUATION B 1 2 A 

ZLAM1= ( APART *CPART-BPART*SQRT( ARSO*Z L AMO**?-C P AR T**2 ) ) /ABSO 


ZSTA0117 
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EQUATION B12B 

ZLAM2=(BPART*CPART+APART*SQRT< ABSO*ZL AM0**2-CPART**2 ) > /ABSO 
PSIO = ARCTAN< ZLAM1 ,ZLAM2 ) 

ZLAM3=ZLAM0**2/ZLAM2*(2.0*0MEGA-PSID0) -U/ R*Z L AMI +Z L AMI* Z LAMA/ R/ 

IZLAM2 

CALL ITFRAT(TB(1)» 1 . 0E-02 , 7 L AM 1 *P AR ( 2 , 2 ) + R*Z L AM2*P AR ( 3 , 2 ) +Z L AM3 
1*PAR (1,2) ,0.0,5 • 0E-08 , I HUNT , 1 0 , I P ICK , 2 , TFMP , SORT ( < Z L AM1*P AR ( 1 , 2 ) > Z ST AO 185 


Z ST AO 1 77 
ZSTA0I78 
ZSTA0179 
Z ST AO 180 
Z ST AO 181 
Z ST AO 182 
ZSTA0183 
ZSTA018A 


ZSTA0186 
ZSTA0187 
Z ST AO 18 8 
ZSTA0189 
Z S T AO 1 90 
ZSTA0191 
Z ST AO 192 
ZSTA0193 
ZSTA019A 
ZSTA0195 
Z ST AO 1 96 
ZSTA0197 
Z ST AO 1 98 
ZSTA0199 
ZSTA0200 
ZSTA0201 
ZSTA0202 
ZSTA0203 
ZSTA020A 
ZSTA0205 
ZSTA0206 
ZSTA0207 
ZSTA0208 

EQUATIONS B9 AND BIO ZSTA0209 

17 CALL ITERATt PSIO, 1 .0E-02, ( FLOMX< 2 ) /FLOMX( 1 )*PAR < 2, 1 )+( 1 .0+PR0P( 1 ) ZSTA0210 
1 )*< FM/R**2-0MEGA**2*R ) > *Z LAM 1 +< FLOMX < 2 )/ FLOMX ( 1 )*R*PAR< 3, 1 )+ ZSTA021 1 

22 . 0* ( 1.0+ PROP ( 1 ) )*U*OMEGA)*ZLAM2+U*(FLOMX(2)/FLOMX( 1 ) - ( 1 . 0+ PROP ( 1 )ZSTA0212 
3) )*ZLAM3+( FLOMXI 2 ) / FLOMX ( 1 ) - ( 1 . 0+ PROP ( 1 ) ) ) *OMEGA*ZLAMA- ( 1.0+ ZSTA0213 

APROPt 1 ) )*G*THRUST(2)/XINPT( 1 ) * Z L AMO , 0 . 0 , 1 . 0F-06 , I HUNT, 10, I PICK, 2, ZSTA021A 
5TEMP , SORT ( ( FLOMX ( 2 ) / FLOMX ( 1 ) *PAR ( 2 , 1 ) + ( 1 ,0 + PR0P( 1 ) )*( FM/R**2-0M 7.STA0215 

6EGA**2*R ) ) **2*ZLAMl**2+( R*FLOMX ( 2 > / FLOMX < 1 ) *PAR ( 3 , 1 ) +2 .0* ( 1 . 0+ 

7PR0P ( 1 ) )*U*OMEGA)**2*ZLAM2**2 ) ) 

GO TO ( 16,18, 15 ) , IPICK 


1**2+<ZLAM2*PAR(3,2)*R>**2) ) 

TBURN=T6( 1 l+TSPM 
GO TO (6,18,15), IPICK 

15 MASH=1 
RETURN 

16 SPSI=SIN(PSIO) 

CPSI=COS ( PSIO) 

TPSI=SPSI /CPSI 

ZLAM1=SPSI*ZLAM0 

ZLAM2=CPSI*ZLAM0 

EQUATION Bfe 

ZLAM3 = ZLAM0*(2.0*0MEGA-PSI00-U/R*SPSI*CPSI ) /C PS I +Z L AMA/ R*T PS I 
IF( ITERPD.E0.1.AND.ITERAD.NE.3) GO TO 18 
I F ( ITERA0.E0.3) GO TO 17 

EQUATION AOO 

CALL I TER AT ( PSIO, 1 .0E-0 2 ,ZLAM1*PAR ( 2 , 2 ) +R* Z L AM2* P AR ( 3,2 I+ZLAM3* 

1 PAR (1,2) ,0.0, 1 ,0E — 06, IHUNT , 10, I PICK, 2, TEMP, SORT ( ( ZLAM1*PAR (2,2)) 
2**2+(R*ZLAM2*PAR(3,2) )**2) ) 

GO TO ( 16, 18, 15) , I PICK 


COMPUTE S REQUIRED FOR END OF BOOSTER PORTIUN 
18 S( 1,2 )=-( ZLAM1*PAR (2,1 )+R*ZLAM2*PAR (3,1 ) +U*Z L AM3+0MEGA* Z L A MA ) / 
1 FLOMX ( 1 ) 


ZSTA0216 

ZSTA0217 

ZSTA0218 

ZSTA0219 

ZSTA0220 

ZSTA0221 

ZSTA0222 

ZSTA0223 

ZSTA022A 

ZSTA0225 


COMPUTE S REQUIRED FOR BEGINNING OF UPPER PHASES 
I F ( FL0MXI2 ) .EO.O.O) GO TO 19 
S ( 2, 1 ) = ( ( FM/R**2-0HEGA**2*R ) *Z L AM 1 + 2 . 0*U*UMEGA*Z L AM2-U*Z L AM3-0MEGAZ S T A02 26 
1*Z LAMA-THRUST ( 2 ) *G/ X I NPT ( 1 ) *SQRT ( Z L AM 1 **2 + Z L AM2**2 ) ) /FLOMX ( 2 ) ZSTA0227 


RETURN 

19 S ( 2 , 1) =0.0 

RETURN 

END 


ZSTA0228 

ZSTA0229 

ZSTA0230 

ZSTA0231 

ZSTA0232 
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SUBROUTINE STDATA 

SUBROUTINE STDATA INITIALIZED THE OX 
OF THE PERTURBATION FACTORS. 

COMMON /CSTAR/ CM A < 1000 ) , CMB ( 1 OOO ) 
DIMENSION DX (5 ) 

EQUIVALENCE ( DX ,CMA(938)) 

DX ( l)=1.0E-04 
DX ( 2 ) = 1 . 0 E-04 
DX ( 3 ) = 1 . 0E-04 
DX ( 4 ) = 1 .0 E— 04 
DX ( 5 ) = 1 . OE— 04 
RETURN 
END 


Z STD0001 
ZSTD0002 

ARRAY WHICH CONSISTS ZSTD0003 

Z STD0004 
Z STD0005 
ZSTD0006 
ZSTD0007 
ZSTD0008 
Z STD0009 
ZSTD0010 
ZSTD0011 
ZSTDOO 12 
ZSTD0013 
Z ST DOO 14 
ZSTDOO 1 S 




non 


$* 

$ I BF 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TC ZSTEP LIST * DECK 

SUBROUTINE STEP (OUTPUT) 

SUBROUTINE STEP IS CALLED FROM RIJNGEK TO CONTROL 
STEPS IZF A NO PRINTOUT. 


INTEGRATION 


MO GOUT =1 

2 

3 

4 

5 

6 


OUTPUT EVERY NTH 
GO TO MODE 2 . 

OUTPUT AT INTERVALS OF DELMAX 
OUTPUT AT INTERVALS OF DELMAX 
GO TO MODE 4 . 

OUTPUT EVERY NTH STEP UNTIL 
OUTPUT FIRST AND LAST STEP 
NO OUTPUT 


STEP ( N=STEPS ) UNTIL TIME = TMIN, THEN 


UNT I L 
UNTIL 


TIME 

TIME 


TMAX. 

TMIN, THEN 


TIME = TMAX. 


COMMON / RUNG/ RUN (12 5) 

COMMON /CSTAR/ CMA ( 1000 ) ,CMB 
DIMENSION NOUT (6 ,3 ),TS 

DIMENSION XPRIM (100,2 ) 

EQUIVALENCE ( A 1 ,RUN(101)) 

( DELMAX , C M A ( 702 ) ) 
(DELI , RUN ( 103 ) ) 
( E2 , RUN ( 1 0*5 ) 

( I BURN , CMB ( 072 ) 
(LAST 
(MODS 
(NST 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


,CMA( 711 ) 
,CMA( 712) 
,CMA ( 708 ) 
(NSTEP1»RUN( 108) 
(RATIO , RUN (111) 
( STEPMX,CMA( 705 ) 
(TIME , CMA ( 409 ) 
(X , CMA ( 40 1 ) 

(XPRIM , CMA ( 00 1 ) 
DOUBLE PRECISION XPRIM 
INTEGER STEPGO, STEPNO, SCRIBE 
CHECK FOR MAXIMUM NUMBER OF 
STEPGO = STEPGO + 1 
I F ( I MODE. EQ.l. AND.ALT.LT. 10. 
I F ( ST EPGO + S TEPNO.LT .ST EPMX ) 
CALL OUTPUT(l) 

WRITE (6,1) 

FORMAT ( 1X,20HSTEPN0+STEPG0=S 
MASH = 1 
GO TO 32 

I F ( I MODE . EO . 2 ) CALL COAST 

NST AG1 = NST AGE 

GO TO (3,34,34,4) , I 

A3 = ( A2-A1 )*RATI0+A2 

DELT = SIGN (EXP ( ( ERL0G-A3 ) 

IF( DELT/H2.GT.3.0) DELT=3.0* 

GO TO (5,7,6,8,15,15), MODOUT 


( 1000 ) 
(6 


, ( A2 
, ( DELSTO 
, ( ERL IMT 
(H2 

( IMODE 
( MASH 
(NEO 
( NST AGE 
(NSTEP2 
( SCRIBE 
(STEPNO 
, ( TMIN 
( XOOT 


) , X DO T (100 


, R U N ( 
RUN ( 
, CMA ( 
, RUN ( 
, CMB ( 
, CMB ( 
, CMA ( 
,CMA< 
, RUN( 
,RUN ( 
, R U N ( 
,CMA( 
, CMA ( 


102 ) ) 
104) ) 
706 ) ) 
106) ) 
061 ) ) 
064) ) 

709) ) 

710) ) 
109) ) 
114) ) 
113)) 
703) ) 
501 ) ) 


, (ALT 
, (DELT 
, ( ERLOG 
, ( I 
(K 

( MODOUT 
(NOUT 
( NST AG 1 
(NSTEP3 
( STEPGO 
(STEPS 
( TS 
( XINC 


) 

, CMA ( 
, C M A ( 
, C MA ( 
, R UN ( 
, CMB ( 
, C M A ( 
, C MR ( 
, RUN ( 
, RUN( 
,RUN< 
, C M A ( 
» C M A ( 
, RUM ( 


805) ) 
701 ) ) 
707) ) 
107 ) ) 
182 ) ) 
714) ) 
183) ) 
115) ) 
110 ) ) 
112 ) ) 
704) ) 
932 ) ) 
001 ) ) 


, STEPS, STEPMX, FAIL 
STEPS 

0) GO TO 32 
GOTO 2 


TFPMX ) 


/ 5 . ) , DELT ) 
H2 


CHECKS PROXIMITIY TO TMIN FOR CHANGE FROM MODOUT = 1 TO 
MODOUT = 2. 

5 DELI = TMIN-TIME 


ZSTD0016 
ZSTEOOOO 
ZSTE0001 
ZSTE0002 
ZSTE0003 
ZSTE0004 
ZSTE0005 
ZSTE0006 
ZSTE0007 
ZSTE0008 
ZSTE0009 
ZSTE0010 
ZSTE0011 
ZSTE0012 
ZSTE0013 
ZSTE0014 
ZSTE0015 
ZSTE0016 
ZSTE0017 
ZSTE0018 
ZSTE0019 
ZSTE0020 
ZSTE0021 
ZSTE0022 
7.STE0023 
ZSTE0024 
ZSTE0025 
ZSTE0026 
ZSTE0027 
ZSTE0028 
Z STE0029 
ZSTE0030 
ZSTE0031 
ZSTE0032 
ZSTE0033 
ZSTE0034 
ZSTE0035 
Z STE0036 
ZSTE0037 
ZSTE0038 
ZSTE0039 
ZSTE0040 
ZSTE0041 
Z STE0042 
ZSTE0043 
ZSTE0044 
ZSTE0045 
ZSTE0046 
ZSTE0047 
Z STE004 8 
ZSTE0049 
Z STE0050 
ZSTE0051 
ZSTE0052 
ZSTE0053 
ZSTE0054 
Z STE0055 
ZSTE0056 
Z STE0057 
Z STE0058 


157 





■III 




IF! AHS!DEL1/TMIN) .GT.l.E-07) GO TO 8 

ZSTE0059 

c 



ZSTE0060 

c 


SETS UP DELI S FOR LANDING ON TMIN AND CHANGES MODOUT FROM 

ZSTE0061 

c 


ONE TO TWO 

ZSTE0062 



MODOUT = 2 

ZSTE0063 



GO TO 1 5 

ZSTE0064 

c 



ZSTE0065 

c 


CHECK FOR PROXIMITY TO TMIN FOR CHANGING FROM MODOUT = 3 

ZSTE0066 

c 


TO MODOUT = 4. 

ZSTE0067 

c 



ZSTE0068 


6 

IP( DELT-I TIME-TMIN) .LE.O.O) GO TO 7 

ZSTE0069 



MODOUT = 4 

ZSTE0070 



NS T E P2 = 2 

ZSTE0071 



GO TO 8 

ZSTE0072 

c 



ZSTE0073 

c 


CALCULATES DEL FOR OELMAX PRINT OUT 

ZSTE0074 


7 

DEL 1 = DEL 1 -H2 

ZSTE0075 



GO TO 15 

ZSTE0076 

c 



ZSTE0077 

c 


CHECK FOR N-STFP PRINT OUT 

ZSTE007 8 


8 

DEL 3= FLOAT! MODI STEPGO, STEPS) ) 

ZSTE0079 



IF! DFL3.NE.0.0) GO TO 15 

ZSTE0080 



CALL OUTPUT ( 1 ) 

ZSTE0081 



GO TO 15 

ZSTE0082 

c 



ZSTE0083 

c 


SPACES CALCULATES NUMBER OF STEPS TO PRINT OUT OR STAGING POINT 

ZSTE0084 

c 



ZSTE0085 


9 

SPACES =A INT ( ( DEL /DELT ) +S I GN < . 9 , ( DEL / DEL T ) ) ) 

ZSTE0086 

c 



ZSTE0087 

c 


SPACES = 0 INDICATES THAT A STAGING POINT OR PRINT OUT P0IN1 

Z STE0088 

c 


HAS BEEN REACHED. 

Z ST E 0089 

c 



ZSTE0090 



IF(SPACES.NE.O.O) GO TO 23 

ZSTE0091 



NS TF P 1 =2 

ZSTE0092 



GO TO ( 14, 10,10,14,14,14) , MODOUT 

ZSTE0093 

c 



ZSTE0094 

c 


DEL2 LESS THAN 0. PRINT OUT ONLY 

Z STE0095 

c 


DEL 2 = 0. BOTH STAGING AND PRINT 

Z STE0096 

c 


OUT POINT INDICATED 

Z STE0097 

c 


DEL2 GREATER THAN 0. STAGING POINT ONLY 

ZSTE0098 

c 



ZSTE0099 


10 

DEL 3 = DFL 2 

ZSTE0100 



IF! DEL2)12, 11,14 

ZSTE0101 


11 

NSTEP3=1 

ZSTE0102 


12 

I F ( I MODE . EO . 1 ) IBIJRN=IBURN+1 

ZSTE0103 



CALL OUTPUT! 1) 

Z ST EO 1 04 



DEL1=DFLMAX+DELST0 

ZSTE0105 



DEL ST0=0 . 0 

Z ST EO 1 06 



GO TO ( 13, 15) ,NSTEP3 

ZSTE0107 


13 

NSTEP3=2 

ZSTE0108 

c 



ZSTE0109 

c 


NSTAGF IS INCREMENTED, I = 4 CAUSES RESTART IN RIJNGEK 

Z ST EO 1 1 0 


14 

NSTAGF=NSTAGE+1 

Z ST EO 1 1 1 



1=4 

ZSTE0112 

c 



ZSTE01 13 

c 


CALCULATION OF DEL FOR STAGING 

ZSTE01 14 


13 

DEL=TS(NSTAGF)-TIME 

ZSTE01 15 



GO TO (14,18) , NS T F P2 

ZSTE01 16 

c 



ZSTE0117 

c 


IF DELMAX PRINT OUT DESIRED, CALCULATES DEL FUR LANDING ON 

ZSTE01 18 
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f 


C NEXT SPACES = 0 POINT. 

16 DEL2=DEL1-DEL 

IF(ABS(DEL2/TIMF).GT.. 0000001) GO TO 17 

DELST0=DEL2 
DEL2 = 0 . 0 
GO TO 18 

17 DEL=SIGN(AMIN1 (ABS (DEL),ABS ( DEL 1 )), DECT ) 

18 GO TO (9,20) ,NSTFP1 

20 NSTEP1=1 

IF(ABS(DEL).GE.ABS(DELT) ) GO TO 22 
C 

C NSTAGE IS INCREMENTED UNTIL T S ( NS T AGE 1 + 1 ) DOES NOT EQUAL 

C TS( NSTAGE) 

IF (NSTAG1. EO. NSTAGF. OR. TS(NSTAGE-1 ). NF . TS ( NSTAGE ) ) GO TO 21 

NSTEP1=2 

GO TO 16 

21 DELT=SIGN(DEL,DELT) 

C 

22 I F ( 1-6)9,26,9 

23 DELT = DEL/SPACES 
RETURN 


MODS = 1 NO PRINT BEFORE AND AFTER STAGING 

2 PRINT BEFORE AND AFTER STAGING 

3 PRINT BEFORE, NOT AFTER STAGING 
6 PRINT AFTER, NOT BEFORE STAGING 


26 IF(NOUT(NSTAGl,K).NE.O) GO TO 28 
I F ( MODOUT-5 ) 25,26,28 

25 IF(DEL3.E0.0.0) GO TO 28 

26 GO TO (28,27,27,28) , MOOS 

27 CALL OUTPUT ( 1 ) 

28 CALL STAGE 

IF (M0D0UT.E0.6.0R.N0UT(NSTAG1,K) .NE.O) GO TO 31 
IF (NSTAGE. GT. LAST) GO TO 30 
GO TO (31, 29, 31, 29), MODS 

29 SCRIBE = 0 
GO TO 31 

30 NSTAG1=NST AGE 
CALL OUTPUT ( 1 ) 

31 IF(NSTAGE.LE.LAST) GO TO 9 

32 DELT = 0 . 0 

RESET X PR I MS TO ZERO 

DO 33 J = 1,10 

33 XPRIM(J,1 )=0.0D0 
36 RETURN 

END 


ZSTE01 19 
Z STE0120 
ZSTF0121 
ZSTE012 2 
ZSTE0123 
Z ST FO 1 26 
ZSTE0125 
ZSTE0126 
ZSTE0127 
ZSTE0128 
7.STF0129 
ZSTE0130 
ZSTE0131 
Z ST EO 1 32 
ZSTE0133 
Z ST EO 1 36 
ZSTE0135 
Z ST EO 1 36 
Z ST EO 1 37 
Z ST EO 1 38 
ZSTE0139 
ZSTE0160 
ZSTE0161 
Z ST EO 162 
Z ST EO 1 63 
Z ST EO 166 
ZSTE0165 
Z ST EO 166 
ZSTE0167 
ZSTE0168 
ZSTE0169 
Z ST EO 1 50 
ZSTE0151 
ZSTE0152 
ZSTE0153 
Z ST EO 1 56 
ZSTE01 55 
ZSTF0156 
ZSTE01 57 
ZSTE0158 
Z ST EO 1 59 
ZSTE0160 
ZSTE0161 
Z ST EO 1 62 
ZSTE0163 
Z S T EO 1 66 
ZSTE0165 
Z ST EO 1 66 
ZSTE0167 
ZSTE0168 
Z ST EO 1 69 


SUBROUTINE STGSS(KMAX) ZSTG0001 

Z STG0002 

SUBROUTINE STGSS IS A DUMMY ROUTINE PLACED IN THE ZSTG0003 

MAIN PROGRAM AFTER THE COMPLETION OF THE PROBLEM. ZSTG0006 

ZSTG0005 

RETURN ZSTG0006 

END ZSTG0007 
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SUBROUTINE THRUST 

SUBROUTINE THRUST SUPPLIES THE THRUST DIRECTION EOR 
BOTH THE VERTICAL RISE PORTION AND ZERO ANGL E-OF- AT T AC K 
PORTION OF THE BOOSTER PHASE AND THE ACCELERATIONS FOR 
BOTH OF THESE PORTIONS. 


COMMON /ATABLE/CMEIflOOO) 
COMMON /CSTAR/ CMAUOOO) 


CMB ( 1000) 


ZTHR0001 
ZTHR0002 
ZTHR0003 
ZTHR0004 
Z THR0005 
ZTHR0006 
ZTHR0007 
ZTHR0008 
ZTHR0009 


DIMENSION 

COMPA (3 

) , DR AG 

( 3 

), FORCE 

(3 ) 

ZTHR0010 

DIMENSION 

H 

(5 

) , OBLAT 

(3 

) , RB 

( 5 ) 

ZTHR0011 

DIMENSION 

UF 

(5 

) ,UH 

(5 

) , UN 

(3 ) 

ZTHR0012 

DIMENSION 

UT 

(3 

) , UV ATM 

( 5 

) , VATM 

(5 ) 

ZTHR0013 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(COMPA 

(G 

( PUSH 


EQUIVALENCE (UT 


,CMA(783) ) » ( DR AG 
* CMA ( 7 1 6 ) ) , ( IMODF 
,CMA(751 ) ) , <RB 
, CMA ( 800 ) ) , (VATM 


, CMA ( 777 ) ) 
, C MB ( 06 1 ) ) 
, CMA ( 754) ) 


( FORCF 
(OBLAT 
( UN 


, CMA ( 774 ) ) 
*CMA ( 780 ) ) 
t’CME ( 022 ) ) 


, CMA ( 7 64 ) ),( WEIGHT, CM A (402) ) 


TDPMAG=PUSH/WEIGHT#G 
I F ( I MODE . EQ. 1 ) GO TO 


VERTICAL RISE 
THE THRUST IS 
VECTOR IN THE 
DO 1 J = 1 , 3 

1 FORCE ( J ) =TDPMAG*UT ( J ) 


SECTION 

ALL I GNFD PARALLEL TO UT 
DIRECTION OF THE LAUNCH 


WHERE IJT IS A UNIT 
RADIUS VECTOR. 


GO TO 5 

ZERO ANGLE-OF-ATTACK SECTION 

DURING THIS PORTION OF THE BOOSTER, THE THRUST VECTOR IS 
ALLIGNED SUCH THAT IT IS PARALLEL TO THE AZIMUTH PLANE 
AND THE ANGLE BETWEEN THE RELATIVE VELOCITY VECTOR AND THE 
PROJECTION OF THE THRUST VECTOR INTO THF R AD I US-REL A T I VF 
VELOCITY PLANE IS ZERO. 

CALL CONVT ( RB , VATM , H ) 

DO 3 J = 1,3 
IJH( J)=H( J ) / H ( 5 ) 

IJVATM ( J ) = VATM ( J ) / VATM( 5 ) 

UHDOTW=DOT ( UH,UN ) 

UVA T MW = DOT ( UVATM,UN ) 

DENOM=SORT ( UVATMW**2+UHDOTW**2 ) 

DO 4 J = 1,3 

OF ( J ) = ( UHDOT W^IJVATM ( J ) -IJVATMW#UH( J ) ) / DENOM 
FORCE ( J ) =TDPMAG*UF ( J ) 

DO 6 J= 1 , 3 

COMPA(J)=OBLAT (J )+FORCE(J )+DRAG(J) 

RETURN 

END 


ZTHR0014 

ZTHR001 5 

ZTHR0016 

ZTHR0017 

ZTHR0018 

ZTHR0019 

ZTHR0020 

ZTHR0021 

Z THR0022 

Z THR0023 

ZTHR0024 

ZTHR0025 

ZTHR0026 

ZTHR0027 

ZTHR0028 

ZTHR0029 

ZTHR0030 

ZTHR0031 

ZTHR0032 

ZTHR0033 

ZTHR0034 

ZTHR0035 

ZTHR0036 

ZT HR 00 3 7 

ZTHR0038 

Z THR 0039 

Z THR0040 

ZTHR0041 

ZTHR0042 

Z THR0043 

ZTHR0044 

ZTHR0045 

Z THR0046 

ZTHR0047 

Z THRQ048 

ZTHR0049 


160 


oo o r> o o oo on oooooo ooooo 


SUBROUTINE TUDES 

SUBROUTINE TUDES CONVERTS LATITUDE, LONGITUDE, AZIMUTH, 
ELEVATION ANGLE, AND RELATIVE VELOCITY INTO RECTANGULAR 
COORDINATES. 

COMMON /CSTAR/ CMA ( 1 000 ) , CMB ( 1 000 ) 

COMMON /ATABLE/ CMEI8000) 

DIMENSION ANGLEB(4 ) , ANGL E S ( A 


DIMENSION SINA 
DIMENSION XPRIM 
EQUIVALENCE <A 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


) , UN 


(3 


<4 

( 100,2 ) 

, C ME ( 004 ) ) , ( ALT 
( ANGLES, CMA( 786) ) 

(GM ,CMA (715) ) 


) , COS A 
) ,UT 


(4 
( 3 


) 


,CME (005 ) ) 
, CMA (814) ! 
, CMB (061 ) ) 
(0BLATN,CMA(815) ),( RADIUS, CME ( 013 ) ) 
(RMASS ,CMA(003) ) , (SINA 
(UT 


, (B 

, ( I MODE 


( UN 

( XPRIM 


, CME ( 022 ) ) 
, CMA ( 00 1 ) ) 


, ( ANGLEB ,CME ( 025 ) 
, ( ELEV , C M A ( 7 9 0 ) 
, (OBLATJ,CMA(818) 
, <REV0LV,CMA(799> 
,CMA ( 791 ) ) , ( TKT I ME, CMA (804) 
, CMA ( 800 I ) , ( VEL ,CME(001) 


DOUBLE PRECISION XPRIM 
DATA RADDEG/57. 2957795/ 
VEL1=VEL 

I F ( I MODE . NE . 0 ) GO TO 2 
DO 1 I = 1,4 


ANGLES ( 1 ) 
ANGLESI2) 
ANGLES ( 3) 
ANGLES (4) 


ANGLEB ( 1 ) 
ANGL EB ( 2 ) 
ANGLEB ( 3 ) 
ANGLEB (4 ) 


LATITUDE 
LONGITUDE 
AZIMUTH HEADING 
ELEVATION ANGLE 


1 ANGLEB( I )=ANGLES( I ) 

2 DO 3 I = 1,4 

S I NA ( I ) =S IN ( ANGLEB ( I I/RADDEG) 

3 COSA( I )=COS( ANGLEB! I I/RADDEG) 

COMPUTE X , Y , Z COMPONENTS 

XPR I M ( 6 , 1 )=DBLE(C0SA(2)*C0SA( 1 >*RADIUS) 

XPRIMf 7,1 ) =DBL E ( S I NA ( 2 )*COSA ( 1 ) ^RADIUS I 
XPRIM(8,1)=DBLE( SINAI 1 )*RADIUS) 

IF ( I MODE . NE . 0 I 60 TO 4 

STORE NORMAL TO AZIMUTH PLANE AT LAUNCH 
UN( 1 )=SINA(2 )*COSA< 3)-COSA(2 > *S I NA ( 1 > *S I NA ( 3) 
UN( 2 ) =-S I NA ( 2 ) *S INA ( 1 )*S INA ( 3 ) -COS A ( 2 I *COSA ( 3 ) 
UN ( 3 ) =COS A ( 1 )*SINA(3) 


STORE UNIT VECTOR IN THE LAUNCH RADIUS DIRECTION 
UT ( 1 )=C0SA(2 )*COSA ( 1 ) 

UT(2)=SINA(2)*C0SA(1) 

UT ( 3 ) =S I NA ( 1 ) 

4 C0S1 = COSA( 1 )*SINA(4)-C0SA(4)4C0SA< 3)*SINA< 1 ) 

C0S2 = C0SA(4)*SINA(3) 

COMPUTE XDOT , YOOT, AND ZDOT. 

XPRIM(3,l)=DBLE(VELl*(COSl=i 5 COSA(2)-COS2 ! ! : SINA(2 I I -SNGL ( X PR I M ( 7 , 1 I 
1REV0LV I 

XPRIM(4,1 )=DBLE ( V EL 1 =M COS 1*S I NA ( 2 ) +C0S2*C0S A < 2 ) I+SNGL ( XPR IM< 6, 1 ) 
1REV0LV) 

XPRIM( 5,1 )=DBLE< VEL1=M S I NA ( 1 ) *S I NA ( 4 I +COSA ( 1 ) *COS A ( 3 I 4C0S A ( 4 ) ) ) 

RETURN 

END 


ZTUD0001 
ZTIJD0002 
ZTUD0003 
Z TUD0004 
ZTUD0005 
ZTUD0006 
ZTUD0007 
ZTUD0008 
ZTUD0009 
ZTUD0010 
ZTUD0011 
) ZTIJDOO 1 2 
) ZTUD0013 
) ZTUD0014 
) ZTUD0015 
) ZTUDOOlfc 
I ZTUD0017 
ZTUD0018 
ZTUD0019 
ZTUD0020 
ZTUD002 1 
ZTUD0022 
ZTUD0023 
ZTUD0024 
ZTUD0025 
ZTUD0026 
£TUD0027 
Z TUD0028 
Z TUD0029 
ZTU00030 
ZTUD0031 
Z TUD0032 
ZTUD0033 
ZTUD0034 
ZTUD0035 
ZTUD0036 
ZTUD0037 
ZTUD0038 
Z TUD0039 
ZTUD0040 
ZTUD0041 
ZTUD0042 
ZTUD0043 
Z TUD0044 
ZTUD0045 
ZTUD0046 
ZTUD0047 
Z TUD0048 
ZTLJD0049 
Z TUD0050 
ZTUD005 1 
ZTUD0052 
Z TUD0053 
ZTUD0054 
ZTIJD0055 
I *Z TU00056 
ZTUD0057 
)*ZTUD0058 
ZTUD0059 
ZTUD0060 
ZTUD0061 
ZTUD0062 
ZTUD0063 


161 



oo oon oo ooooo 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUT I NE XOLOAD 

SUBROUTINE XOLOAD DETERMINES WHICH PHASES ARfc TO BE 
INTERNALLY BY TERMINATING A PHASE IN THE COAST SUBROUTINE AND 
WHICH PHASES ARE TO BE OPTIMIZED EXTERNALLY BY ITERATING ON THE 
PHASE DURATION IN THE NEWTON-RAPHSON SCHEME. 

THE FIRST PART OF THE PROBLEM IS TO DETERMINE THE EQUATIONS 
TO BE SATISFIED IN ORDER TO DETERMINE THE OPTIMALLY PHASED 
VEHICLE. THESE EQUATIONS ARE OFTEN EVALUATED AT THE INTERMEDIATE 
PHASING POINTS AND XOLOAD DETERMINES WHERE THE EQUATIONS TO 
DETERMINE OPTIMUM PHASING ARE TO BE FOUND . AFTER THIS IS 
DETERMINED, THE ROUTINE PROPERLY ASSIGNS SOMF EQUATIONS TO BE 
SATISFIED BY COAST AND OTHERS TO THE NEWTON-RAPHSON SCHEME. THE 
NUMBER LEFT TO THE NEWTON-RAPHSON SCHEME DETERMINES THE SIZE 
OF THE ITERATION LOOP REQUIRED. 


COMMON /CSTAR/ CMA ( 1 OOO ) , CMB ( 1 OOO ) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


FUEL (6 
JCOAST ( 6 
NTB (4 
THRUST ( 6 


) , F YD (5 
) , JF I NAL ( 6 
) .PROP (6 


) • 


) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( CONM 


, CMA 


) ,X0 
717) ) 


, IDATA 
i NOPT 
) , TB 
,5 ) 

,CMA (718) ) , (CPA 


(6 
(6 
( 6 


) 


( ITERP 


(ft 

(CONN 

( ENERGY, CM A ( 8 92 ) ) , ( F I X DTK , CMB ( 07 1 ) ) , ( FM 
(FUEL ,CMA ( 871 ) ) , ( FYD ,CMB ( 036 ) ) , ( I DATA 
(ITER , CMB ( 068 ) ) , ( I TER AD, CMB ( 067 ) ) 

( ITERPD,CMR(OftO) ) ,( JCOAST , CMB ( 1 30 ) ) 

(LAST ,CMA< 890) ) , (NCUTE ,CMA(B93>) 

, CMA ( 8 1 9 ) ) , ( MOP T A ,CMB(070)) 

, CMA ( 849) ) , ( PS I DO , CMA ( 883 ) ) , ( PS 10 
,CMA ( 82b) ) , ( THRUST , CM A ( 8 31 ) ) , ( TK ICK 


(NOPT 
( PROP 
( TB 
( XO 


,CMA( 719) ) 
, CMA (715) ) 
,CMB( 086 ) ) 
, CMB ( 069 ) ) 
( JF INAL ,CMB ( 136) ) 
( NF I N AL , CMA (879) ) 


( NTB 


, CMB ( 00 1 ) ) 


INTEGER FIXDTK 


ITERPD = 1 FIXED KICK ANGLE 
ITERPD = 0 OPTIMIZED KICK ANGLE 


COMPUTE CONVERSION FACTOR 
CPA=9.80665*C0NN/C0NM*#2 


FOR PRESSURE IN ATMOS 


PLACE PSIDO IN 
X0( 1 , 1 ) =PS IDO 


THE PERTURBATION ARRAY ( XO ) 


INITIALIZATIONS 
F I XDTK=3 
DO 1 J = 1,6 
JCOAST ( J ) =0 
J F I NAL ( J ) =0 
FlJELt J )=0.0 
DO 1 K = 1,5 
I DATA ( J ,K ) =0 

FIXDTK = 1 IMPLIES THAT THF KICK ANGLE (TKICK) AND THE BOOSTER 
PHASE DURATIONS ARE FIXED AND THEN ONLY ONE BOOSTER NFED BF RUM. 
I E ( I TER PD. EO. 1. AMD. NOPT ( 1 ) .EO.O) FI XDTK = 1 
NCUT E = 0 


ZXOLOOOl 
ZXOL0002 
OPT I MI ZEDZX0L0003 
ZX0L0004 
Z X0L0005 
ZXOLOOOft 
ZX0L0007 
ZXOL0008 
Z X0L0009 
ZX0L0010 
ZXOLOOU 
ZX0L001? 
ZX0L0013 
ZX0L0014 
ZX0L0015 
ZXOLOOlft 
ZX0L0017 
ZXOL0018 
ZX0L0019 
Z X0L0020 
ZX0L0021 
ZX0L002? 
ZX0L0023 
Z X 0 L O'O 2 4 
ZX0L0025 
ZXOL0026 
ZXOL0027 
Z X0L0028 
Z X0L0029 
Z X0L0030 
ZX0L0031 
ZX0L003? 
ZX0L0033 
ZX0L0034 
Z X0L0035 
Z XOL0036 
Z X0L0037 
ZX0L0038 
Z X0L0039 
ZX0L0040 
ZX0L0041 
ZX0L0042 
Z X0L0043 
ZX0L0044 
Z X0L0045 
ZX0L0046 
Z X0L0047 
ZX0L0048 
Z X0L0049 
ZXOL0050 
ZX0L0051 
Z X0L0052 
ZXOL0053 
ZX0L0054 
Z X0L0055 


, C M B ( lift) ) 
, CMA ( RR1 ) ) 
,CMB ( 059 ) ) 
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2 


4 


5 

6 

7 


NOP T A = 0 
I TERAD=2 
I TER=0 
K A = 2 


DETERMINE NUMBER OF PHASES AND SET LAST TO THAT NUMBER. 
DO 2 LAST=1,6 

IF(TB(LAST+1 ) .EQ.O.O) GO TO 3 


DETERMINE THE NUMBER OF CRITERIA (FIXED TIME AND EQUATIONS) 
AVAILABLE FOR TERMINATING EACH PHASE. ALSO DETERMINE WHETHEr'a 
PHASE IS POWERED. NOTE THAT ONE EQIJATON IS EXCLUDED FOR THE 
FIRST OPTIMIZED PHASE. 

J = 2 REFERS TO FIRST UPPER PHASE 
DO 6 J = I, LAST 

IF PHASE IS UNPOWERED, PUT 1 IN IDATA(J,5). 

I F( THRUST ( J) .E0.0.0) IDATA(J»5)=1 

I E ( NOPT ( J ) . NE . 0 ) GO TO 4 

IF PHASE DURATION IS FIXED, PUT 1 IN IDATA(J,1) 

I DAT A ( J , 1 ) = 1 

GO TO ft 


SET NOPTA EQUAL TO FIRST OPTIMIZED PHASE 
IF(NOPTA.EO.O) NOPT A = J 


IF( NOPTA. EQ.J ) GO TO 6 
IE(PROP< J) .EQ.O.O) GO TO 5 

IF PHASE J IS OPTIMIZED AND IT IS NOT THE FIRST OPTIMIZED PHASE 
AND THE PROPELLANT FRACTION IS NOT EQUAL TO ZERO, SET IDATA(J,2)= 
I DAT A ( J , 2 ) =1 

GO TO ft 


IF PHASE J IS OPTIMIZED AND IT IS NOT THE FIRST OPTIMIZED PHASE 

AND THE PROPELLANT FRACTION IS EQUAL TO ZERO, SET I DAT A ( J -1 , 3 ) = 1 

IDATA(J-1,3)=1 

CONTINUE 

DO 7 J = 1 , LAST 

IDATA(J,4)=IDATA(J,1 )+IDATA( J,2 )+IDATA( J,3) 


I F < IDATAI 1 , 1 ) ,EQ. 1 ) GO TO 10 
I F ( IDATAt 1,3) .EQ.l ) GO TO B 
I TE R= 1 

XO ( 1 » 3 ) =TB ( 1 ) 

NTB ( 1 )=1 

GO TO 10 

I F ( I TER PD. EQ. 0 ) GO TO 9 

PLACE BOOSTER DURATION IN EXTERNAL ITERATION. THE PROPELLANT 
SENSITIVE FRACTION FOR THE SECOND PHASE IS NON-ZERO. SET ITFRAD 
TO 3 SUCH THAT PSIO IS CHOSEN UTILIZING EQUATION B9 AND BIO FROM 
PAYLOAD OPTIMIZAI ON OF MULTISTAGE VEHICLFS (NASA TN-3191). THE 


Z X0L0056 
Z X0L0057 
Z X0L0058 
Z X0L0059 
Z XOL0060 
ZX0L0061 
ZX0L0062 
Z X0L0063 
Z X0L0064 
Z X0L0065 
Z X0L0066 
Z X0L0067 
Z X0L0068 
Z X0L0069 
ZX0L0O7O 
Z XOL0071 
Z X0L0072 
Z XOL0073 
Z X0L0074 
ZXOL0075 
ZX0L0076 
ZX0L0077 
Z XOL0078 
Z X0L0079 
,Z XQL0080 
ZX0L0081 
Z X0L0082 
ZXOL0O83 
ZX0L0084 
Z XOL0085 
Z XOLOOSft 
Z X0L0087 
ZX0L0088 
Z X0L0089 
1 Z X0L0090 
ZX0L0091 
Z X0L0092 
Z X0L0093 
ZX0L0094 
ZX0L0095 
Z X0L0096 
Z X0L0097 
ZX0L0098 
Z X0L0099 
ZXOLOIOO 
Z X0L0101 
ZX0L0102 
Z X0L0103 
ZX0L0104 
ZX0L0105 
ZXOLOI 06 
ZX0L0107 
ZX0L0108 
Z X0L0109 
ZXOLOI 10 
ZX0L0111 
ZXOLOI 12 
ZXOLOI 13 
ZXOLOI 14 
ZX0L0115 
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II III I 


min 111 ii 111 ■ 


10 


11 


12 


KICK ANGLE IS 
X0( 1,2 >=TB ( 1 ) 

NTB ( 1 )=1 
K A = 1 
I TER = 1 
I TERAD=3 

GO TO 12 

KICK ANGLE IS PLACED IN ITERATION (STATEMENT 11). THE BUIJSTER 
DURATION IS DETERMINED IN START USING THE METHOD UNDER B14 ON 
PAGE 40 IIP THE ABOVE MENTIONED REPORT. 

I TERAD=1 


GO TO 11 
I F ( ITERPD.EO.O) 


GO TO 11 


PLACE PSIO IN 
X0( 1 ,2) =PSIO 

GO TO 12 


PLACE KICK ANGLE 
X0( 1 ,2 )=TK ICK 


THE EXTERNAL ITERATION. 


(TKICK) IN THF PERTURBATION ARRAY (XO) 


FIXFD. ZX0L0116 

ZX0L01 17 
ZX0L011B 
ZX0L01 19 
ZX0L0120 
ZX0L0121 
ZX0L0122 
ZX0L0123 
ZX0L0124 
ZX0L0125 
ZX0L0126 
ZX0L0127 
ZX0L0128 
ZX0L0129 
ZXOL0130 
ZX0L0131 
ZX0L0132 
ZX0L0133 
ZX0L0134 
ZX0L0135 
ZX0L0136 
ZX0L0137 
ZX0L0138 
ZX0L0139 
ZXOL0140 
ZX0L0141 
ZX0L0142 
ZX0L0143 
ZX0L0144 
Z XOLO 145 
ZX0L0146 
Z XOLO 147 
Z XOLO 1 48 
FIXEUZXOLO 149 
Z XOLO 1 50 
ZX0L0151 
Z XOLO 1 52 
ZX0L0153 
ZX0L0154 
Z XOLO 1 55 
ZX0L0156 
ZX0L0157 
ZX0L0158 
Z XOLO 1 59 
ZX0L0160 
ZX0L0161 
ZX0L0162 
Z XOLO 1 63 

AT SOME PHASING POINTS TWO EQUATIONS MUST BE SATISFIED. WHEN THISZX0L0164 
OCCURS , THE PHASING POINT MAY BE DETERMINED INTERNALLY WITH ONE 0FZX0L0165 
THESE FQUATUNS AND THF OTHER MUST BE SATISFIED AS ONE OF THE E I NAL Z XOL 0 1 66 


IF ONLY TWO 
SKIPPED. 

I F ( L A ST . EO • 2 ) 


PHASES ARE CONSIDERED, THFN THF NEXT SECTION MAY BE 


GO TO 14 


LAST1=L AST-1 
DO 13 J=2,LAST1 

IF I DATA ( J , 4 ) IS NOT EQUAL TO ZERO AMD THE JTH. PHASE IS NOT 
THEN AN INTERNAL OPTIMIZATION EQUATION EXISTS AND THE PHASE 
DURATION MAY BE DETERMINED IN COAST (SEE COAST). OTHERWISE, 
PHASE DURATION MUST BF A PART OF THE EXTERNAL ITERATION. 

I F ( I DA T A ( J , 4 ) . ME . 0 ) GO TO 13 

PLACE THOSE PHASE DURATIONS WHICH MAY NOT BE TERMINATED 
INTERNALLY IN THE EXTERNAL ITERATION. 

ITER=ITFR+1 
K = ITER+KA 
XU ( 1 , K ) =TB ( J ) 

NTB ( ITER ) = J 
13 CONTINUE 


CONDITIONS. 

THE JFINAL(J) 
ENABLING THEM TO 

14 DO 21 J = 1 , L A S T 
I F ( I DA T A ( J , 4 ) - 1 ) 

15 I E ( I DAT A ( J , ] ) . EO 

16 I F ( I DATA ( J,2 ) .EO 
J COAST ( J ) =2 

GO TO 21 


AND JCOAST(J) ARF FLAGS FOR USE IN 
EVALUATE THE PROPER EQUATION. 


FINAL AMD COAST 


21,15,18 
,1) GO TO 
1 ) GO TO 


21 

17 


Z XOL 0 1 67 
ZX0L0168 
Z XOL 0 1 69 
ZX0L0170 
ZXOL0171 
ZX0L0172 
Z XOL 0 1 7 3 
Z XOL 0 1 74 
Z XOLO 175 
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17 JCOAST ( J ) = 1 
GO TO 21 

18 I F < I DATA! J,3) . R 0 - 1 ) GO TO 19 
JF INAL ( J ) =2 

GO TO 20 

19 J F I N A L I J )=1 

20 I F I I DAT A I J » 1 ) • FQ .0 ) GO TO 16 

21 CONTINUE 

IF THERE IS NO EQUATION TU TERMINATE THE LAST PHASE, THE LAST 
PHASE IS TERMINATED AT THE PROPER ENERGY (NCUTE = 1) 

I F ( IDATA(LAST,4).E0.0) NCUTE=1 

IF THE OPTIMUM PSIO IS FOUND IN START, THE ITERATION LOOP SIZE 
(ITERP) IS DECREASED BY ONE. 

ITERP=ITER 

I F ( ITERA0.E0.3) I TFRP= I TERP-1 

IF(NFINAL.NE.l) GO TO 23 

22 IF(ENERGY.NE.O.O) GO TO 23 

CALCULATE ENERGY 

FYD(l) RADIUS 

FY0I2) RADIAL VELOCITY 

FYDI3) ANGULAR VELOCITY 

ENERGY® I FYDI 2 > **2 + FYD( 3 )**2*FY0< 1 ) **2 > /2 .O-FM/FYIX 1 ) 

23 IFIJCOAST (LAST) .ME. 1 ) RETURN 
JCOAST (LAST)=0 

J F I NAL ( L AS T ) =2 
NCUTE =1 
RETURN 
END 


ZX0L0176 
ZX0L0177 
ZX0L0178 
ZX0L0179 
ZX0L0180 
ZX0L01R1 
ZX0L0182 
ZX0L0183 
ZX0L0184 
ZX0L0185 
ZX0L0186 
ZX0L0187 
ZX0L0188 
ZX0L0189 
ZX0L0190 
ZX0L0191 
ZX0L0192 
ZXOL0193 
ZX0L0194 
ZX0L0195 
ZX0L0196 
ZX0L0197 
ZX0L0198 
ZX0L0199 
ZX0L0200 
Z X0L0201 
ZX0L0202 
Z X0L0203 
ZX0L0204 
ZX0L0205 
Z X0L0206 
ZX0L0207 
Z X0L0208 


FUNCTION Z M I N ( PE RM , N ) 

FUNCTION ZMIN COMPUTES ANY VARIABLE ZMIN SUCH THAT ZMIN 
EQUALS THE SMALLEST MEMBER OF THE FIRST N MEMBERS OF THE 
PERM ARRAY. 

DIMENSION PERM ( 6 ) , TEMP ( 6 ) 

DO 1 J = 1,N 

1 TEMPI J)=PERM(J ) 

DO 2 J = 2,N 

IEI TEMPI J-l ) ,GE. TEMPI J ) ) GO TO 2 
TEMPI J )=TEMP{ J-l ) 

2 CONTINUE 

ZMI N=TEMP ( N ) 

RETURN 

END 


ZZMI0001 
ZZM I 0002 
ZZMI0003 
Z Z M I 000 A 
Z Z M I 0005 
Z. ZMI0006 
ZZM I 0007 
ZZM I 0008 
Z Z M I 0009 
ZZMI0010 
ZZMI0011 
ZZMI0012 
ZZMI0013 
ZZMI0014 
ZZMI0015 
ZZMI0016 
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